Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать программу в паскале + алгоритм. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше. Вывести сообщение.

Ответ оставил Гость

Var a,r,s2:integer;
sk,p:real;
begin 
writeln(a=);
readln(a);
writeln(r=);
readln(r);
p:=3.14;
sk:=p*sqr(r);
s2:=sqr(a);
if sk>s2 then writeln (plosciadi kruga bolise )
else writeln(plosciadi kvadrata bolise);
readln;
end.