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

Ответы 1

  • 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. 

      

    • Автор:

      bucko
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years