Составьте программку которая вычисляет сумму естественных чисел кратных 4 в диапазоне

Составьте программу которая вычисляет сумму натуральных чисел кратных 4 в спектре от 5 до n (n велено с клавиатуры)

Задать свой вопрос
1 ответ
Var n,i,s:integer;
begin
writeln('Введите n');
read(n);
for i:=5 to n do
if i mod 4=0 then s:=s+i;
write ('Сумма естественных чисел которые кратны 4 одинаково ',s);
end.
Агата Руа
Спасибо
Надежда Брусенко
Синюю спасибо нажми превосходнее)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт