Введите число от 1 до 1000.определить сколько тысяч,сотен,десятков,единиц.заранее
arina68668
2
30.03.2019 09:10
0
Другие вопросы по теме Информатика
EGORchikchik228
15.12.2020 15:08
Pots150204
15.12.2020 15:09
Girl1girl
15.12.2020 15:09
ник4760
15.12.2020 15:09
valeriarodriger
26.04.2020 12:49
karvinatatiana
26.04.2020 12:49
Volodyaaaa
25.04.2020 12:21
kyrmaeva200614
25.04.2020 12:21
Le213768
25.04.2020 12:21
Популярные вопросы
- 1.чему учили детей в школах древнего египта? 2.на чём и чем писали...
1 - Жить в общевстве нельзя а быть в свободный от общевства нельзя как...
2 - Поставти знаки 43дм. 3м4дм что больши или меньши...
3 - Cрочно заранее ) решите уравнение: 1)|2x|=6 2)|3x|=12 3)|5x|+3=8 4)|4x|+5=1...
2 - Была ли мария кирилловна счастлива? почему не ушла к дубровскому. в...
3 - Rewrite the sentences using the plural form of the nouns. 1) that is...
3 - Сколько будет 34566 разделить в столбик на 33...
3 - Как общество отреагировало на реформы столыпина?...
3 - Укаких червей представителей имеется пищеварительная система?...
2 - Продано 3/5 телевизоров , осталось 30 , сколько телевизоров было сначало?...
3
var a:integer;
begin
readln(a);
writeln(a mod 10,' edinic');
a:=a div 10;
writeln(a mod 10,' desyatkov');
a:=a div 10;
writeln(a mod 10,' soten');
a:=a div 10;
writeln(a,' tisyach');
end.