Question

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

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

Answer 2

Для нахождения суммы цифр заданного 7-значного числа, стоящих в разрядах миллионов, десятков тысяч и тысяч, можно использовать следующий алгоритм:

1. Разделим заданное 7-значное число на 1 000 000, чтобы получить число, стоящее в разряде миллионов. В данном случае это будет 1. 2. Затем, разделим остаток от предыдущего деления на 100 000, чтобы получить число, стоящее в разряде десятков тысяч. В данном случае это будет 2. 3. Наконец, разделим остаток от предыдущего деления на 10 000, чтобы получить число, стоящее в разряде тысяч. В данном случае это будет 3.

Теперь, чтобы найти сумму этих трех чисел (1, 2, 3), достаточно их просуммировать:

1 + 2 + 3 = 6

Таким образом, сумма цифр, стоящих в разрядах миллионов, десятков тысяч и тысяч числа 1 234 567 равна 6.

Чтобы выполнить данное действие в Pascal ABC, можно использовать следующий код:

program SumOfDigits;
var
  number: integer;
  millions, tenThousands, thousands: integer;
  sum: integer;
begin
  number := 1234567;
  
  millions := number div 1000000;
  number := number mod 1000000;
  
  tenThousands := number div 100000;
  number := number mod 100000;
  
  thousands := number div 10000;
  
  sum := millions + tenThousands + thousands;
  
  writeln('Сумма цифр числа 1234567:', sum);
end.

После выполнения этого кода, в консоли будет выведено:

Сумма цифр числа 1234567: 6