Question

2) Определите, что будет на выходе в результате выполнения
алгоритма. Запишите условие задачи, для которой составлен
данный алгоритм
var
n: integer;
begin
n: 200
while (n mod 17<>0) do n:=n+1;
writeln ('Ответ: ". n);
readln
end.​

Answer 1

Эта программа делит 200 на 17 до того момента, пока остаток от деления на 7 не станет равным нулю.

Цикл повторится 4 раза.

n будет равно 204