Гриб -подосиновик растёт под осиной
человек- врач лечит людей
человек-школьник учится в школе
растение- дерево имеет ствол
дерево- яблоко приносит плоды
здание-школа место обучения
10. d
11. Мотоцикл
12. 2
13. 2
14. 3
15. 1,2
16. 2
17. с
18. b
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
Правильный ответ С 4 !!!!!!!!