Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
На скане таблица для 1:)
2 не могу
3 2
4 2 подходит
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
Var a: array[1..10] of Integer;
i,s,d: Integer;
begin
for i:=1 to 10 do
begin
a[i]:=Random(10-1+1)+1;
writeln('Число: ',a[i]);
end;
for s:=1 to 10 do
begin
if a[s] mod 2=0 then inc(a[s]);
end;
for d:=1 to 10 do
begin
writeln(a[d]);
end;
end.
For i:=m to n do..
Количество повторов равно n-m+1 - если меньше 1 значит повторов 0
for i:=m downto n do..
Количество повторов равно m-n+1 - если меньше 1 значит повторов 0
1) 7
2) 9
3) 9
4) 5
____________________________________________
Переменные после выполнения программ:
5) i=2
S=0
6) x=16
S=26
7) a=1
S=0
8) Пока не будет достигнут порог типа или же зацикливание.
9) a=3
b=5
S=8
10) S=35
P=10
k=7
11) k=5
S=11
12) S=60