Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29Program2.pas [142 b] ( 0). 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.
Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.Program2.pas [142 b] ( 0) var i,s:integer; begin for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end; writeln('s=',s); end.