<span>10 INPUT D</span><span>
30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0
</span><span> THEN PRINT "Вводимый год может быть годом рождения китайского поэта"
</span><span> ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"</span>
END IF
<span>40 END</span>
Ответ этого вопроса коктейль
Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
A := 26;
b := 6;
b := a mod b + 4 = 26 mod 6 + 4 = 2 + 4 = 6;
c := a mod b + 1 = 26 mod 6 + 1 = 2 + 1 = 3;
Ответ: 3.