Найдите квадрат наибольшего из чисел a и b. Введите результат сравнения на экран. Записать программу на языке паскаль

Question

Петряка

11 ноября, 02:12

+3

Ответы (1)

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

Радий · Answer 1

Program n1;

var a, b: real;

begin

write ('введите а и b: ') ;

readln (a, b) ;

if a
if a>b then writeln ('наибольшее a; квадрат: ', a*a) ;

end.