Question

Решение на паскале Определите при каком наименьшем значении введеном значении переменной s программа выведет число меньше 100000 (примечание: функции abs возвращает модуль числа).

Паскаль

var s,n sn:longint;

begin

readln(s);

n:=1;

sn:=0;

while n < 200 do

begin
s:= 3*s-n;

n:=n+24;
sn:=sn+(s+n);

end;

writeln (abs(sn-n))

end.