• Вопрос по информатике:

    Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to).

    • Автор:

      josé90
  • Var sum,i:integer;sa:real;begini:=0;sum:=0;for i:=1 to 100 dosum:=sum+i;writeln(sum);sa:=sum/i;writeln(sa:1:2);end.
    • Отвечал:

      kona3wha

    Ответов нет, но ты это испарвиш!