Помогите пожалуйста!
Работв в паскале
Найти сумму целых положительных нечётных чисел меньших 20
Ответы на вопрос
Ответил goschapavlenko
0
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.
Var S,i:integer;
Begin
for i:=1 to 19 do
if 1 mod 2=1 then S:=S+i;
Writeln('Сумма=',S);
End.
Новые вопросы