Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. Программа ввода- Pascalabc :9 класс.
Ответы
Ответ дал:
0
var
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
writeln(s);
end.
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
writeln(s);
end.
Ответ дал:
0
Сек, поправлю, не сумму нашел.
Ответ дал:
0
Поправил.
Ответ дал:
0
спасибо,попробую
Ответ дал:
0
Спасибо, вроде получилось(
Ответ дал:
0
Все работает, я просто сначала вывод этих чисел сделал.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад