Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
Буквенная а,б,в,т.д
Камандная шифт, капс, т.д
Цифровая 1,2,3,4
Управляушия F1, F2, F3 т.д
5-? Разве есть?
Условие: мы смотрим на время,если время больше или равно 19:00,то нужно зайти домой,если нет,то играете дальше.
Действие: мы смотрим на время,если время больше или равно 19:00,то нужно зайти домой,конец. Если ещё нет 19:00, то играете дальше,затем все действия ещё раз повторяются до тех пор пока время не будет больше или равно 19:00.