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

Question

Информатика

Тихомира

23 марта, 09:45

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

+3

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