Найдите сумму цифр заданного 7-значного числа стоящие в разрядах миллионов, десятков...

Question

Найдите сумму цифр заданного 7-значного числа стоящие в разрядах миллионов, десятков тысяч и тысяч (1 234 567). цифры - 1,3,4
Выполнить в Pascal ABC net

Comments

Число дано через пробел?

Answer 1

//Если число дано через пробелы(как в условии: 1 234 567)

begin
  var a := ReadInteger;
  var b := ReadInteger mod 100;
  var c := b div 10;
  b := b mod 10;
  ReadInteger;
  Writeln(a + b + c);
end.

Пример:
1 234 567
8

//Если число дано строкой

begin
  var a := ReadString;
  var b := new Integer[a.Length];
  for var i := 1 to a.Length do
    b[i - 1] := a[i].ToDigit;
  Writeln(b[0] + b[2] + b[3]);
end.

Пример:
6894354
19