Question

Pascal написать программу которая выводит все делители числа число вводится пользователем

Answer 1

Var a,i:integer;
begin
readln(a);
for i:=1 to a do
if a mod i=0 then writeln(i);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая выводит все делители введенного пользователем числа:

pascalCopy code
program Deliteli;

var
  number, i: integer;

begin
  writeln('Введите число:');
  readln(number);
  
  writeln('Делители числа ', number, ':');
  
  for i := 1 to number do
  begin
    if (number mod i = 0) then
      writeln(i);
  end;
  
  readln;
end.

Пользователь будет приглашен ввести число, а затем программа выведет все его делители. Например, если пользователь вводит число 12, программа выведет следующий результат:

yamlCopy code
Введите число:
12
Делители числа 12:
1
2
3
4
6
12

Надеюсь, эта программа помогла вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.