Можно это в паскале Спасибо) 8-9

Question

Можно это в паскале
Спасибо)
8-9

---

Answer 1

8)
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var n:=ReadInteger;
write(n.ToString.Select(x->x.ToDigit).Sum);
end.

9)
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var n:=ReadInteger;
write(n.ToString.Where(x->x='0').Count);
end.

Answer 2

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

№8

begin
  var (N,s):=(ReadInteger,0);
  while N>0 do begin
    s+=N mod 10;
    n:=N div 10
    end;
  Writeln(s)
end.

Пример
15023
11

№9

begin
  var (N,k):=(ReadInteger,0);
  while N>0 do begin
    if N mod 10=0 then k+=1;
    n:=N div 10
    end;
  Writeln(k)
end.

Пример
1430020
3

Comments

Спасибо