Задана сторона а1 первого квадрата и сторона другого квадрата а2. Площадь какого квадрата больше?

Question

Информатика

Ленуша

29 июня, 08:55

Задана сторона а1 первого квадрата и сторона другого квадрата а2. Площадь какого квадрата больше?

+2

Ответы (1)

Знаете ответ на вопрос?

Васильюшка · Answer 1

Var

a1, a2:integer;

begin

writeln ('Введите а1') ;

read (a1) ;

writeln ('Введите а2') ;

read (a2) ;

a1:=sqr (a1) ;

a2:=sqr (a2) ;

if a1>a2 then

writeln ('Площадь а1 больше')

else

writeln ('Площадь а2 больше') ;

end.