Составте программу в паскале нахождения максимального из чисел a, b, c, d. ввод должен быть с клавиатуры

295

316

Посмотреть ответы 2

Ответы на вопрос:

Shishmariya

Информатика

4,6(58 оценок)

Var a, b, c, d, n : integer; begin write('введите первое число '); readln(a); write('введите второе число '); readln(b); write('введите третье число '); readln(c); write('введите четвёртое число '); readln(d); n: =a; if b> n then n: =b; if c> n then n: =c; if d> n then n: =d; writeln('большее из чисел равно ', n); end.