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

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

ОТВЕТЫ

Program kratnii;

var a, i: integer;

begin

for i := 8 to 80 do

if (i mod 5 = 0) then

a := a + i;

Writeln(a);

end.

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