Задача №306. Минимум 4 чисел
Входные данные
Вводится четыре числа.
Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.
4 5 6 7
выводяться 4
Паскаль хелп####
Входные данные
Вводится четыре числа.
Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.
4 5 6 7
выводяться 4
Паскаль хелп####
More Questions From This User See All
Answers & Comments
Program tt;
Var a, b, c, d, Min: integer;
Begin
Min:=40000
Read(a);
Read(b);
Read(c);
Read(d);
If(a<Min) then
Min:=a;
If(b<Min) then
Min:=b;
If(c<Min) then
Min:=c;
If(d<Min) then
Min:=d
Write(Min);
End.