Помогите пожалуйста! Работв в паскале Найти сумму целых положительных нечётных чисел меньших 20
Помогите пожалуйста! Работв в паскале Найти сумму целых положительных нечётных чисел меньших 20
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы