Ответы 1

  • Uses crt;Var i,n,sm:integer;BeginClrscr;Writeln('Введите число N: ');Readln(n);For i:=1 to n doSm:=sm+i;Writeln('Сумма цифр числа ',n,' равно ',sm);Readkey;End.
    • Автор:

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

Войти через Google

или

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

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

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