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

    question img

Ответы 5

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

      ochoa
    • 6 лет назад
    • 0
  • Поспешишь - людей насмешить. (Это я о своем решении).Здесь все можно сделать без цикла:var n,k,d:integer;f1,f2:text;beginAssignFile(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.
  • Консольное приложение может быть таким:var n,k,d:integer;f1,f2:text;beginAssignFile(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.
    • Автор:

      oto
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      grimes
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years