Var n,i,s:integer; begin writeln('Введите n'); read(n); for i:=5 to n do if i mod 4=0 then s:=s+i; write ('Сумма натуральных чисел которые кратны 4 равно ',s); end.
Океанические течения влияют на климат и природу Земли. Они перераспределяют тепло и холод между широтами. Теплые течения приносят тепло из тропических широт в умеренные и арктические. Холодные течения возвращают к экватору холодную воду. Северо-Атлантическое течение – основная причина мягкости климата Северной Европы. Благодаря течениям в океанах и морях перераспределяется не только тепло, но и растворенные питательные вещества и газы. Живые организмы получают больше возможностей для развития. С помощью течений растения и животные перемещаются и заселяют новые территории.
Океанические течения влияют на климат и природу Земли. Они перераспределяют тепло и холод между широтами. Теплые течения приносят тепло из тропических широт в умеренные и арктические. Холодные течения возвращают к экватору холодную воду. Северо-Атлантическое течение – основная причина мягкости климата Северной Европы. Благодаря течениям в океанах и морях перераспределяется не только тепло, но и растворенные питательные вещества и газы. Живые организмы получают больше возможностей для развития. С помощью течений растения и животные перемещаются и заселяют новые территории.
begin
writeln('Введите n');
read(n);
for i:=5 to n do
if i mod 4=0 then s:=s+i;
write ('Сумма натуральных чисел которые кратны 4 равно ',s);
end.