• 
  • 23 February 2021
  Информатика
  • Автор: yrunthik33

  

  Дано натуральное число х, вывести на экран все делители этого числа. И я написал программу, пойдёт ли она под данное условие, и если нет, то что нужно поменять:
  program zadacha;
  var n,i:integer;
  begin
  i:=1;
  while(i begin
  if (n mod i=0) then write(i);
  end;
  writeln('n');
  end.

• 
  • 23 February 2021
  • Ответ оставил: Wani4kaa

  0. Ты никак не задаёшь n в программе. Тебе стоит хотя бы прочитать его: read(n);
  1. Что написано внутри условия цикла while? Если по твоему решению, должно быть "i <= n"
  2. Делители будут "прилипать" друг к другу, выводи так: write(i, ' ');
  3. Твой счётчик i не увеличивается, программа зациклится. После if'а вставь i := i + 1;
  
  Итоговый код:
  var n, i: integer;
  begin
  read(n);
  i := 1;
  while (i <= n) do
  begin
  if n mod i = 0 then write(i, ' ');
  i := i + 1;
  end;
  writeln('n');
  end.
  
  Есть, кстати, альтернативный способ поиска делителей. Выводить их он будет, правда, не в порядке возрастания.
  var n, i: integer;
  begin
  read(n);
  i := 1;
  while (i * i < n) do
  begin
  if n mod i = 0 then write(i, ' ', n div i, ' ');
  i := i + 1;
  end;
  if i * i = n then write(i, ' ');
  writeln('n');
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (15.10.2024) наш сайт содержит 16353 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы