Даны три числа a, b и с. Вычислить и вывести на экран дисплея значение z, равное квадрату большего из них. Паскаль

Question

Информатика

Тимоня

10 июля, 12:21

Даны три числа a, b и с. Вычислить и вывести на экран дисплея значение z, равное квадрату большего из них. Паскаль

+5

Ответы (1)

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

Никандр · Answer 1

Var a, b, c, z:real;

Begin

Write ('a = ') ;

ReadLn (a) ;

Write ('b = ') ;

ReadLn (b) ;

Write ('c = ') ;

ReadLn (c) ;

z:=a;

if z < b then z:=b;

if z < c then z:=c;

WriteLn (z*z) ;

End.