36

Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

06 февраля 2023

Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

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



71

Program Zadacha; Const c=4; max=50; Var a, b: Integer; Begina: =c; While a < max DoBeginIf a Mod c=0 Thenb: =b+a; a: =a+1; End; WriteLn ('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b); ReadLn; End.

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


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