Дано натуральное число х, вывести на экран все делители этого числа. И я написал программу, пойдёт ли она под данное условие, и если нет, то что нужно поменять
program zadacha;
var n,i:integer;
begin
i:=1;
while(
begin
if (n mod i=0) then write(i);
end;
writeln('n');
end.
Дано натуральное число х, вывести на экран все делители этого числа. И я написал программу, пойдёт ли она под данное условие, и если нет, то что нужно поменять
program zadacha;
var n,i:integer;
begin
i:=1;
while(
begin
if (n mod i=0) then write(i);
end;
writeln('n');
end.
program zadacha;
var n,i:integer;
begin
i:=1;
while(
begin
if (n mod i=0) then write(i);
end;
writeln('n');
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Программа имеет синтаксическую ошибку в строке "while(i" - не хватает условия для продолжения выполнения цикла
Также необходимо добавить ввод значения переменной n, чтобы программа знала, для какого числа нужно найти делители.
Исправленный вариант программы:
program zadacha
var n, i: integer
begi
i := 1
write('Введите натуральное число: ')
readln(n)
while (i <= n) d
begi
if (n mod i = 0) then write(i, ' ')
i := i + 1
end
writeln()
end.
Этот вариант программы будет выводить все делители введенного натурального числа.