СРОЧНО ОЧЕНЬ!!!
ДАЮ 25 БАЛЛОВ!
В тетради составить программу решения задачи: "Ввести с клавиатуры четырехзначное число. Вывести число тысяч, сотен, десятков, единиц"
Ответы
Ответ дал:
0
Ответ:
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);
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад