Даны два числа, вывести на экран квадрат большего из них

Question

Информатика

Светозара

7 марта, 07:24

Даны два числа, вывести на экран квадрат большего из них

+4

Ответы (2)

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

Малаха · Answer 1

Var a, b, a1, b1:integer;

begin

readln (a, b) ;

a1:=sqr (a) ;

b1:=sqr (b) ;

if a1>b1 then write (a1)

else write (b1) ;

end.

Женя · Answer 2

Конкретно я затупила на этой легкой программе, но все таки

Program kvadrat;

var a, b:integer;

begin

writeln ('введите два числа') ;

readln (a) ;

readln (b) ;

if (a>b)

then

begin

a: = a*a;

write (a) ;

end;

If (a
then

begin

b: = b*b;

write (b) ;

end;

end.