IlyaLS

13.05.2020 14:45 •  Информатика

ПЕРЕНЕСТИ НА ПАЙТОН,Даны натуральные числа от 1 до 50. Определите сумму тех из них, которые делятся на 5 или на 7.СА
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
end.