Ответы
Ответ дал:
1
Ответ:
program n_7;
var a, b, c, d, f: integer;
function min(x,y: integer): integer;
begin
if x>y then min:=y else min:=x;
end;
begin
writeln('Введите четыре целых числа');
readln(a, b, c, d);
f:= min(min(a,c), min(c,d));
writeln('Наименьшее из 4-х чисел= ', f);
end.
Объяснение:
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад