Question

Определите, при каком наименьшем положительном введённом значении переменной s программа выведет число s, отличающееся от введенного значения.
var s, n: integer;
begin
readln (s);
n := 100;
while s - n >= 100 do
begin
s := s + 20;
n := n + 40
end;
writeln(s)
end.

Answer 1

Ответ:

При введённом значении "200" будет выведено значение переменной S, которое не равно 200 (будет выведено 220).

Объяснение:

Перепишем код из условия, но теперь вместо ввода readln(s) переменная s будет принимать значеня параметра цикла, а также заменим пару операций:

var s, n, i: integer;

begin

for i := 1 to 201 do begin    // создаём цикл с параметром i, который будет принимать значеня от 1 до 201.

  s := i;    // переменная s принимает значение i; это некая замена ввода числа с клавиатуры

  n := 100;

  while s - n >= 100 do begin

       s := s + 20;

       n := n + 40;

  end;

writeln(i, ' ',s);     // выводим i и s, чтобы убедиться в ответе

end;

end.

Получаем результат:

.... ....

.... ....

190 190

191 191

192 192

193 193

194 194

195 195

196 196

197 197

198 198

199 199

200 220

201 221