Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail.ru
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Скрипт от Anomaly на CoC перевести
1 ставка
Нужно сделать Алгоритмический способ перевода чисел в римскую систему счисления.
1 ставка
Помогите написать код на Паскаль.
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Вывести все делители числа и найти из количество. Паскаль
Валерия Плешкова
Знаток
(391), на голосовании
7 лет назад
Голосование за лучший ответ
Sadovnik
Мастер
(1010)
7 лет назад
согласен
Imobilazer
Искусственный Интеллект
(222455)
7 лет назад
c:=0;
for i:=1 to n do
begin
if n mod i = 0 then writeln(i);
inc(c);
end;
Юрий Моисеев
Оракул
(83940)
7 лет назад
var n,i,k:integer;
begin
write('n=');
readln(n);
k:=0;
for i:=1 to n do
if n mod i=0 then begin
write(i,' '); k:=k+1 end;
writeln;
writeln('Kol=',k)
end.
Похожие вопросы