• Дано шестизначное число . Найти сумму его цифр ( ПАСКАЛЬ )
    СРОЧНО !!! ПЛИИИЗЗЗЗЗЗЗЗЗЗЗЗ!

Ответы 2

  • var sum:integer;      n:longint;begin    readln(n);    sum := 0;    repeat         sum := sum + (n mod 10);        n := n div 10;    until n = 0;    write(sum);end.
  • Var   A:longint;   S:integer;BeginWrite('Введите целое число: ');ReadLn(A);if A < 0 then A:=-A;S:=0;While A > 0 do   Begin   S:=S+A mod 10;   A:=A div 10;   End;WriteLn('S = ',S)End.Пример работы программы:Введите целое число: 123456S = 21
    • Автор:

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

Войти через Google

или

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

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

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