Помогите пожалуйста!
Работв в паскале
Найти сумму целых положительных нечётных чисел меньших 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.
Новые вопросы
Английский язык,
2 года назад
Информатика,
2 года назад
История,
9 лет назад
Математика,
9 лет назад
Математика,
9 лет назад