А я опять к вам с задачей по информатике ** PascalABC.NET в синтаксисе Pascal ABC. Дано...

Question

А я опять к вам с задачей по информатике на PascalABC.NET в синтаксисе Pascal ABC.

Дано натуральное число n. Определить его разрядность и сумму цифр.

Answer 1

Var
  n,s,k:integer;
begin
  Write('n='); Read(n);
  s:=0; k:=0;
  while n>0 do begin
    s:=s+n mod 10;
    n:=n div 10;
    k:=k+1
    end;
  Writeln('Разрядность ',k,', сумма цифр ',s)
end.

Пример
n=142321
Разрядность 6, сумма цифр 13

Comments

Прям выручаете! Спасибо

---

я знаааю) но эт от души ахах