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

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

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

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

//Если число дано через пробелы(как в условии: 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





Похожие ответы

Нужна помощь! Не могу понять где ошибка в третьей строчке. program n_3; begin writeln("Введите сумму рублей"); readln(a)
Нужна помощь! Не могу понять где ошибка в третьей строчке. program n3 begin writelnВведите сумму
помогите пожалуйста информатику решить и 1 задание и 2
помогите пожалуйста информатику решить и 1 задание и 2
помогите с ребусом плиз
помогите с ребусом плиз
{ } это знак что он делает С#
это знак что он делает С
некоторый алфавит содержит 256 символов.Сообщение состоит из 15 символов. определите информационный объём сообщения.
некоторый алфавит содержит 256 символов.Сообщение состоит из 15 символов. определите информационный