46

Помогите решить задачу на Паскале! Вычислить сумму чисел от 3 до 9, кратных 4

14 марта 2023

Помогите решить задачу на Паскале! Вычислить сумму чисел от 3 до 9, кратных 4

категория: информатика

86

Program Summa; Uses crt; var i,s: integer; begin clrscr; s: =0; for i: =3 to 9 do if (i mod 4)=0 then s: =s+i; writeln ('Сумма равна: ',s); readkey; end.

Знаете ответ?

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