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