Определите, при каком наибольшем положительном введённом значении переменной s программа выведет трёхзначное число. var s, n: integer;
begin
readln (s);
n := 200;
while s div n >= 2 do
begin
s := s + 5;
n := n + 5
end;
writeln(s)
end.​

Заметим, что число 64 это 2 в шестой степени. Значит, цикл должен выполниться 6 раз. Тогда ответ — 51 − 5 · 6 = 21.

ответ: 21.

Объяснение:

знаки той же арифметики, если эмоции- те же смайлики.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.