Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
1. C)
2. a = 10
b = a * 2 + 3
b = 23
a = 2
b = 33
Ответ : D)
3. Сори не проходил еще (p.s 7 класс)
4. D)
5. D)
6. Сори, этот тоже не проходил
Лестница получится, идущая слева-направо с снизу-вверх.
1)смешанная:<span>оркестр,<span>библиотека</span></span>
2)<span>природная:<span>болото,<span>вулккан,<span>степь</span></span></span></span>
<span>3)<span>техническая:<span>самолёт</span></span></span>