Если рулон обоев по 2.5 метров, то можно сделать 8 рулонов на четыре пятиметровые стены в длинну и 2.5 метров в высоту
Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>
1. 3 (Все, кроме первого)
2. 3 (Все, кроме третьего)
лестья -яблоня-ствол-ветки-плоды
X0+(x+1+1)*3+3=x0, y0+(y+3-2)*3+9=y0.
x+2=-1, y+1=-3,
x=-3, y=-4
Ответ № 4