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

Question

Информатика

Саломея

18 июня, 06:58

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

+5

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