Составьте программу, находящую количество делителей числа х. число х введите с клавиатуры. (pascal abc (не net))

Var n, i, sum: integer; //Описание переменных Begin //Начло программы writeln ('Введите число'); //Диалог с пользователем readln(n); //Считывание числа sum := n; //Присваивание сумме значение самого числа (само число - уже делитель самого себя) writeln('Делители числа:'); //Диалог с пользователем for i := 1 to n div 2 do //Цикл For от до половины n if (n mod i) = 0 then begin //Если число делится на i, то выводим write(i,' '); sum := sum + i; //К значению суммы прибавляем делитель end; //Конец условного оператора if writeln(n); //Вывод самого числа, т.к. оно тоже делитель writeln('Сумма делителей: ',sum); //Вывод суммы делителей End.

Program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (X  mod i = 0) then   sum := sum + 1;Writeln(sum);end.

Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".

Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.

Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".

Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.