var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>
Ну мне кажется что это кролик
8 Ячеек
B2|C2
B3|C3
B4|C4
B5|C5
24/80=0.3Кб (в секунду)
0.3*120=36Кб ( за две минуты)
ответ: 36
Var
a,b:integer;
begin
Write('Введите a и b: '); Read(a,b);
if a mod 2<>0 then inc(a);
while a<=b do begin
Write(a,' ');
a:=a+2
end
end.
<u>Пример</u>
Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10