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

v1tek2692 v1tek2692    2   28.11.2020 18:29    3

Ответы
foximmortal foximmortal  28.12.2020 18:30

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика