Сколько знаков в любом числе, которое содержит 7 тысяч, 70 тысяч, 700 тысяч? -записать любые три числа, в которых 7 тысяч, 70 тысяч, 700 тысяч.

7541

70548

700548 я думаю так

b6)

b7)

1)

var a, b, c, d: integer; begin readln(a); b : = a div 100; { сотни } c : = (a mod 100) div 10; { десятки } d : = a mod 10; { единицы } writeln('сумма цифр равна: ', b + c + d); end.

2)

var a, b, c, d, p: integer; begin readln(a); b : = a div 100; { сотни } c : = (a mod 100) div 10; { десятки } d : = a mod 10; { единицы } p : = d * 100 + c * 10 + b; writeln('наоборот: ', p); end.

3)

var a, b, c, d, e: integer; begin readln(a); e : = a div 1000; { тысячи } b : = (a div 100) mod 10; { сотни } c : = (a mod 100) div 10; { десятки } d : = a mod 10; { единицы } writeln('сумма: ', e + b + c + d); writeln('произведение: ', e * b * c * d); end.