Даны три числа, найти максимальное из них и заменить квадратом этого числа. Помогите решить плииз с помощью паскаля.

Question

Информатика

Тихомира

14 мая, 18:46

Даны три числа, найти максимальное из них и заменить квадратом этого числа. Помогите решить плииз с помощью паскаля.

+4

Ответы (1)

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

Леруха · Answer 1

Var

a, b, c: integer;

begin

writeln ('vvedite 1 chislo:') ;

readln (a) ;

writeln ('vvedite 2 chislo:') ;

readln (b) ;

writeln ('vvedite 3 chislo:') ;

readln (c) ;

writeln ('otvet') ;

if (a
if (b
if (a
end.