Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 500
Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29.
var a,S:integer;
begin
for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
writeln('S=',s);
end.
var a,S:integer;
begin
for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
writeln('S=',s);
end.
