Паша написал программу для вычисления чисел геометрической прогрессии со знаменателем прогрессии 3. Определи, какое последнее число выведет на экран программа. program p1;
var n,res: integer
begin
n:=1
repeat
res:=n*3
n:=res
writeln ('res=', res);
until res > 222;
end.
243
Объяснение:
Программа увеличивает число в 3 раза, пока оно не будет более 222. Изначально число = 1, число будет умножаться и дойдет до 243. 243 больше, чем 222 и программа остановится