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

Question

Информатика

Силуян

18 декабря, 03:40

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

+5

Ответы (1)

Знаете ответ?

Ленюся · Answer 1

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.