300 БАЛЛОВ за решение:"Найдите сумму цифр заданного 7-значного числа стоящие в разрядах сотен тысяч, сотен и десятков (1 234 567). "
Answers & Comments
PopCop312
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.
3 votes Thanks 1
PopCop312
1234567 - считает 2+5+6, если надо другие - пиши
Answers & Comments
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.