uses crt;
var n:integer;a,b:real;
begin
clrscr;
writeln('Введите номер');
readln(n);
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
case n of
1:writeln(a+b);
2:writeln(a-b);
3:writeln(a*b);
4:writeln(a/b);
end;
end.
Начальные значения: s=0;n=3;
1 шаг цикла
0*0*0 = 0 (< 123)
s := 1;
n := 5;
2 шаг цикла
1*1*1 = 1 (< 123)
s := 2;
n := 7;
3 шаг цикла
2*2*2 = 8 (< 123)
s := 3;
n := 9;
4 шаг цикла
3*3*3 = 27 (< 123)
s := 4;
n := 11;
5 шаг цикла
4*4*4 = 64 (< 123)
s := 5;
n := 13;
6 шаг цикла
5*5*5 = 125 (< 123)
условие не выполняется, выходим из цикла
будет выведено число 13
Решение и результат выполнения на паскале смотри во вложении
256000*120(2 минуты в секундах)=30720000 бит
переводим бит в килобайты
3750 килобайт)