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

Question

36

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

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

ответить

в избранное ссылка

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

irina_n85 · Accepted Answer

71

irina_n85

31 января 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: