Сад (РАСТЕНИЯ, САДОВНИК, забор, земля, собака).
<span>Река (БЕРЕГ, рыба, тина, рыболов, ВОДА). </span>
<span>Игра (шахматы, ИГРОКИ, штрафы, ПРАВИЛА, наказания).</span>
Var i:integer;
begin
//Первый способ
for i:= -10 to 10 do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
end;
//Второй способ
i:= -10;
while(i <= 10) do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
i:= i + 1;
end;
end.
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
Я думаю, что ответ будет 2
<span>"дисковод, системная плата, блок питания"</span>