Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m
#include <iostream>
int main() {
int n;
std::cin >> n;
int i = 2;
while (n % i > 0) ++i;
std::cout << i;
return 0;
}
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.