Найти сумму нечётных делителей натурального числа
belozerovanastya
2
18.03.2019 19:30
3
Другие вопросы по теме Информатика
Arina4dyuzhova
10.07.2019 19:30
dima1025
04.10.2019 15:30
DENCHIK23371
29.06.2019 08:20
tatianafirstovp06ovw
06.07.2019 19:50
naumchenkova87
06.07.2019 19:50
девочка245
06.07.2019 19:50
pinkiepieanddash
06.07.2019 19:50
BellaNow
06.07.2019 19:50
Популярные вопросы
- Тогда я встал и, выйдя из дому, отправился по аллее, по которой — я в...
3 - Какая темя запомнилась вам из курса 17 века...
1 - Ширина комнаты 5 м. она на 4 м меньше её длины. сколько метров плинтуса...
1 - Как древние люди научились добывать огонь чтобы можно было пересказ ать!...
2 - Вкаком ряду все причастия являются действительными? 1) играющий, смеявшийся,...
3 - Какая соль и в каком количестве (по массе) образуется при взаимодействии...
3 - Вставь в пустые клетки цифры по порядку от причины к следствию, чтобы...
3 - Сколько стоит 1 кг баранины и 1 кг говядины, если фермер продал 15 кг...
2 - 1)что такое страх ? 2)что такое смелость? какую роль она играет в жизни...
1 - 8класс ! из точки к прямой проведены 2 наклонные , проекции которых на...
3
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.