Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составьте программу которая вычисляет сумму натуральных чисел кратных 4 в диапазоне от 5 до n (n велено с клавиатуры)

Ответ оставил Гость

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.