Напишите программу (Pascal), которая находит наибольшее из четырех целых чисел и выводит его на экран.

Question

Информатика

Татуся

7 марта, 03:08

Напишите программу (Pascal), которая находит наибольшее из четырех целых чисел и выводит его на экран.

+2

Ответы (1)

Знаете ответ на вопрос?

Ленин · Answer 1

Var a, b, c, d: integer;

begin

readln (a, b, c, d) ;

if b>a then a:=b;

if c>a then a:=c;

if d>a then a:=d;

writeln ('максимальное число: ', a) ;

end.

15 - 4 17 16

максимальное число: 17