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

    ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ!Даю 25 баллов

    Составить программу,которая определяет сколько слагаемых должно быть в сумме последовательности 2+4+6+8+.. и эта сумма оказалась больше заданного числа n. N>=0

    Паскаль,8 класс!

    • Автор:

      potter3
  • Спасибо большое!!!!\
    • Отвечал:

      daisydouglas

    var

     i, c, s, n:integer;

    Begin

     write('Введите n: ');

     readln(n);

     s:= 0;

     c:= 0;

     write('Последовательность: ');

     while i < n do begin

       s:= s + i;

       c:= c + 1;

       i:= i + 2;

       write(i, ' ');

     end;

     writeln;

     writeln('Сумма последовательности: ', s);

     writeln('Количество слагаемых: ', c);

    END.

    • Отвечал:

      marina4icg

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