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

Question

Информатика

Всеволодыч

15 октября, 02:08

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

+5

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