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

Question

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

---

Comments

могу на Pascal сделать

---

только Delphi

Answer 1

Консольное приложение может быть таким:
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.

Comments

Поспешишь - людей насмешить. (Это я о своем решении).
Здесь все можно сделать без цикла:
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 div k)+1)*k;
writeln(f2,d);
close(f1);close(f2);
end.

Answer 2

Program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;

var n,k: integer;
    f: text;
begin
  assign (f,'C:\input.txt');
  reset (f);
  read (f,n,k);
  writeln(' n = ',n,' k = ',k);
   close(f);
  while (n mod k)>0 do  n:=n+1;
  assign (f,'C:\output.txt');
  rewrite (f);
  write (f,n);
  close (f);
  writeln(' n = ',n);
  readln;
end.

Comments

не знаю правильно или нет, но попробуй и это решить
http://znanija.com/task/15636859