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

Question

Информатика

Адельфина

29 июля, 21:16

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

+2

Ответы (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.