tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу вывода числа
Составьте программу вывода числа делителей натурального числа м в паскале abc
dyadyan
2 31.07.2019 09:00
0
Ответы
samojlenko15
28.09.2020 13:59
Var m,d,kol:uint64;
begin
read(m);
for d:=1 to m do begin
if (m mod d)=0 then inc(kol);
end;
write(kol);
end. Это программа для делителей от 1 до m.
var m,d,kol:uint64;beginread(m);for d:=2 to m-1 do begin if (m mod d)=0 then inc(kol); end;write(kol);end. Эта программа для делителей от 2 до m-1.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aljoona99
05.12.2019 21:14
Народ30 .в бригаде, работающей на уборке сена, имеется n косилок. первая из них работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. сколько часов проработала...
ArT003
05.12.2019 21:13
Написать программу нахождения выражения y=sqr(x)*bнарод, ...
бакыт6
13.09.2019 19:40
Сделать, чтобы данные вводились не с клавиатуры, а с .txt файла? program pf; var x,y,a,b: integer; begin read(x); read(y); a: =x; b: =y; if x y then begin x: =a*b; y: =a+b;...
Марі2017
13.09.2019 19:40
Как защитить cd и dvd диски в условиях...
dawdawad
31.05.2019 05:50
Почему многие научные знания можно отнести к информационным моделям?...
Artem20032003
31.05.2019 05:50
Файл размером 60кб передаётся через 1 соединение со скоростью 3072бит в секунду.определите размер файла в кб, который можно передать через 2 сеединение со скоростью 256 бит...
nik65112
31.05.2019 05:50
Дать общее название презметам карандаши кисточки палитра краски...
School30zh
31.05.2019 05:50
Разгадай ребус-акролог (задуманное слово читается сверху-вниз по первым буквам слов). получив слово, выбери его определение из предлагаемых вариантов.1) структура данных,...
ZEWER
31.05.2019 05:50
Решить по информатике (на уровне знаний 7 класса) с pascalabc 1. дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз. 2. дано 4 значное число поменять местами...
shchetko2006p013vy
31.05.2019 05:50
Вклассическом паскале нет функции возведения в степень. если программисту на паскале все же потребуется возвести число a 0 в степень n, то с какого выражения он может это...
Популярные вопросы
Лыжник преодалел путь в 21км за 0,7ч.с какой скоростью двигался лыжник?...
1
Найдите периметр треугольника qpr если известны координаты его вершин q(-5;...
2
Напиши такую сказку про сосульку, которая таяла на солнце, чтобы её стало...
2
Как решить этот пример в столбик 31842 : 6...
3
«наталья - родная сестра виталия, николай - родной брат бориса, семен -...
1
Как правильно платье надето или одето?...
1
Можно сочинение на тему коккольский водопад . ....
1
Сделать синтаксический разбор предложения. нужно тянуться к кромке льда,...
2
Найдите площадь параллелограмма если его стороны равны 11 см и 12 см а...
2
Выполните действия,применяя сочетательное и переместительное свойство умножения...
1
begin
read(m);
for d:=1 to m do begin
if (m mod d)=0 then inc(kol);
end;
write(kol);
end. Это программа для делителей от 1 до m.
var m,d,kol:uint64;beginread(m);for d:=2 to m-1 do begin if (m mod d)=0 then inc(kol); end;write(kol);end. Эта программа для делителей от 2 до m-1.