Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Помогите составить 2 программы в паскале, до вечера пожалуйсто.!

Евгения Ученик (87), закрыт 12 лет назад

№1 У прямоугольника известны длинны сторон, равны площадь и периметр.
№2 Из трёх чисел найти все отрицательные и выдать их экран, если таких не окажется то сообщить об этом!
Лучший ответ
Остальные ответы
wertego Знаток (492) 12 лет назад
Так очевидно же.
Составь алгоритм, а потом спрашивай про код.
Аццкий скорпиончег Просветленный (23522) 12 лет назад
1.

readln(a,b,c);
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));

2.

readln(a,b,c);
if a < 0 then writeln(a);
if b < 0 then writeln(b);
if c < 0 then writeln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then writeln('Все неотрицательные! ');
Тогарин Искусственный Интеллект (290528) 12 лет назад
const
n=3
var
minus:boolean;
a:array[1..n] of real;
i:integer;
begin
minus:=false;
for i 1 to n do
begin
read(a [ i ])
if a[ i ] < 0 then begin minus:=true; write(a [ i ]); end;
end;
if minus = false then writeln ('отрицательных нет');
end.
Skinny| Знаток (428) 12 лет назад
Это простая геометрия при чем тут паскаль и программирование?? ?
Похожие вопросы