Пожалуйста, помогите с информатикой, срочно! Напишите программку для Pascal,

Пожалуйста, помогите с информатикой, срочно!

Напишите программу для Pascal, которая считывает одно естественное число и выводит на первой строке все делители этого числа в порядке возрастания, разделённые пробелами, а на 2-ой Обычное либо НЕТ в зависимости от того, обычным было введённое число либо нет.

Формат ввода
Одно естественное число.

Формат вывода
В первой строке все делители введенного числа, записанные через пробел (перед первым и после последнего делителя пробелов нет).
Во 2-ой известие Обычное либо НЕТ.

Пример:
Ввод:
12
Вывод:
1 2 3 4 6 12
НЕТ

Задать свой вопрос
1 ответ

Program n_1;

var x, i, k:int64;

begin

   readln(x);

   k:=0;

   for i:=1 to x do

       if x mod i = 0 then begin

           write(i, ' ');

           k:=k+1;

       end;

   writeln();

   if kgt;2 then writeln('НЕТ')

   else writeln('Обычное');

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт