Question

Написать программу, которая найдет сумму чисел, кратных 5 на интервале от 8 до 80

Answer 1

var i, s: integer;

begin

s := 0;

for i := 8 to 80 do

if i mod 5 = 0 then

s := s + i;

write(s)

end.