Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Информатика 9 класс. Решить в Delphi. Задача минимальный делитель.

Ответ оставил Гость

Консольное приложение может быть таким:
var n,k,d:integer;f1,f2:text;
begin
AssignFile(f1,input.txt);reset(f1);
AssignFile(f2,output.txt);rewrite(f2);
read(f1,n,k);
d:=n+1;
while d mod k <> 0 do inc(d);
writeln(f2,d);
close(f1);close(f2);
end.