Помогите написать программу в Паскале для нахождения суммы всех делителей натуральных чисел от 5 до 20. Очень нужно))
10-11 класс
|
Natalizelenska
20 дек. 2014 г., 2:09:53 (9 лет назад)
Valeriibadirov1
20 дек. 2014 г., 3:20:48 (9 лет назад)
program z1;
var s:integer;i,j:byte;
begin
s:=0;
for i:=5 to 20 do begin
for j:=1 to i do begin
if (i mod j)=0 then begin
s:=s+j
end
end
end;
write('summa=',s);
readln
end.
Ответить
Другие вопросы из категории
Объявлен набор в шк.команду. Известен рост каждого из N учеников,желающих попасть в эту команду. Подсчитайте количество претендентов,имеющих шанс
попасть в команду,если рост игрока команды должен быть не менее 170см. Считайте рост претендента в команду случайным числом из диапазона от 150 до 300 см, число претендентов n=50.
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Вы находитесь на странице вопроса "Помогите написать программу в Паскале для нахождения суммы всех делителей натуральных чисел от 5 до 20. Очень нужно))", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.