profile
Опубликовано 5 лет назад по предмету Информатика от tarantul1997

Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.

  1. Ответ
    Ответ дан PsyhoAssasin

    Program Summa;

    Uses Crt;

    var n,s,i:longint;

    begin

         clrscr;

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

          readln(n);

          s:=0;

          for i:=1 to n do s:=s+i;

          writeln('Сумма всех положительных чисел меньших чем N:',s);       

          readkey;

    end. 

      

Самые новые вопросы