Написать программный код к задаче
Задача:Определите и выведите на экран сумму всех нечётных двузначных чисел
1)
Var s,i : Integer;
Begin
i:=1; s:=0;
While i<=99 do
Begin
s:=s+i;
i:=i+2;
end;
Writeln(s);
end.
2)
Begin
Writeln((1+99)*50 div 2);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
