Morgas
6 год назад
2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)
Введи четырехзначное число:
1234
цифра тысяч-1
цифра сотен-2
цифра десятков-3
цифра единиц - 4
ОТВЕТЫ
Липат
Jul 1, 2019
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);
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);
210
