2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)

Введи четырехзначное число:

1234

цифра тысяч-1

цифра сотен-2

цифра десятков-3

цифра единиц - 4

Question

Информатика

Наталий

5 ноября, 11:35

2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)

Введи четырехзначное число:

1234

цифра тысяч-1

цифра сотен-2

цифра десятков-3

цифра единиц - 4

+4

Ответы (1)

Знаете ответ на вопрос?

Смарагд · Answer 1

Readln (b) ;

a=b div 1000;

b=b mod 1000;

writeln ("Тысяч: ", a) ;

a=b div 100;

b=b mod 100;

writeln ("Сотен: ", a) ;

a=b div 10;

b=b mod 10;

writeln ("Десятков: ", a) ;

writeln ("Единиц: ", b) ;