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

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.

Объяснение:

для 4 символов:

2*2*2*2=16

для 5 символов:

2*2*2*2*2=32 

для 6 символов:

2*2*2*2*2*2=64

16+32+64=112

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.