Найти квадрат наибольшего из трех чисел

Question

Информатика

Корнил

29 августа, 04:25

Найти квадрат наибольшего из трех чисел

+4

Ответы (1)

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

Никола · Answer 1

var

a, b, c : integer;

begin

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

readln (a, b, c) ;

if a > b then

if a > c then writeln (sqr (a))

else writeln (sqr (c))

else if b > c then writeln (sqr (b)) else writeln (sqr (c)) ;

end.