Question

составить программу нахождения суммы чисел делящихся на 5 от 1 до n​

Answer 1

var s,summ:integer;

begin

writeln("До какого числа считать");

readln(s);

for i:=1 to s do

if i mod 5=0 then

summ:=summ+i;

writeln(summ);

end.