ДАЮ 100 БАЛЛОВ, ПЕРЕНЕСТИ ** ПАЙТОН,Даны натуральные числа от 1 до 50. Определите сумму...

Question

ДАЮ 100 БАЛЛОВ, ПЕРЕНЕСТИ НА ПАЙТОН,Даны натуральные числа от 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.

Answer 1

Ответ:

Program sadadasf;

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.

Объяснение: