• Напишите программу которая вычисляет сумму первых n натуральных чисел через оператор while

Ответы 1

  • Var  n,c:integer;Begin  Write('Введите число ');  Readln(n);  Write('Сумма чисел от 1 до ',n,' равна ');  While n<>0 do Begin    c:=c+n;    n:=n-1;  End;  Write(c);End.
    • Автор:

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

Войти через Google

или

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

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

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