СРОЧНО ОЧЕНЬ!!!
ДАЮ 25 БАЛЛОВ!
В тетради составить программу решения задачи: "Ввести с клавиатуры четырехзначное число. Вывести число тысяч, сотен, десятков, единиц"
ДАЮ 25 БАЛЛОВ!
В тетради составить программу решения задачи: "Ввести с клавиатуры четырехзначное число. Вывести число тысяч, сотен, десятков, единиц"
More Questions From This User See All
Answers & Comments
Ответ:
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);