Хотелось бы узнать название языка.
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
Ответ В)
div - целочисленное деление, т.е. нужно разделить и взять целую часть
mod - остаток от целочисленного деления
21 div 4 = 5
21 mod 4 = 1
var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.