Question

300 БАЛЛОВ за решение:"Найдите сумму цифр заданного 7-значного числа стоящие в разрядах сотен тысяч, сотен и десятков (1 234 567). "

Answer 1

var a, count: integer;
begin
readln(a);
a:=a div 10;
count+=a mod 10;
a:=a div 10;
count+=a mod 10;
a:=a div 1000;
count+=a mod 10;
writeln(count);
end.

Answer 2

1234567 - считает 2+5+6, если надо другие - пиши

Answer 3

Спасибо большое)