Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

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.

391
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам