Помогите пожалуйста! Работв в паскале Найти сумму целых положительных нечетных…

Question

95

Помогите пожалуйста! Работв в паскале Найти сумму целых положительных нечетных чисел меньших 20

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

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

mrtwister · Accepted Answer

99

mrtwister

23 февраля 2023

Program zadanie; Var S,i: integer; Begin for i: =1 to 19 do if 1 mod 2=1 then S: =S+i; Writeln ('Сумма=',S); End.

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

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