Аццкий скорпиончег
Просветленный
(23529)
15 лет назад
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('Все неотрицательные! ');
№1 У прямоугольника известны длинны сторон, равны площадь и периметр.
№2 Из трёх чисел найти все отрицательные и выдать их экран, если таких не окажется то сообщить об этом!