Написать программный код к : определите и выведите на экран сумму всех нечётных двузначных чисел

newsergy81 newsergy81    1   22.07.2019 13:50    1

Ответы
Ирочка300 Ирочка300  03.10.2020 10:47
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика