2. составить программу для нахождения цифр четырехзначного числа. ниже представлен пример диалога. данные, вводимые пользователем, выделены жирным шрифтом. введите четырехзначное число 3281 число тысяч равно 3 число сотен равно 2 число десятков равно 8 число единиц равно 1
polinaxt1
2
27.03.2019 22:20
17
Другие вопросы по теме Информатика
nellimatveeva
09.04.2020 19:51
Golinskaya2002a
09.04.2020 19:51
София1991
09.04.2020 19:42
vicky03
18.01.2021 09:44
autistic04
18.01.2021 09:44
kami654
18.01.2021 09:43
Chvrv
18.01.2021 09:43
Популярные вопросы
- Определи падеж каждого имени существительного смотрит у стены...
2 - 1 Прочитайте текст. Виконайте завдання до нього. Варіантів відповідей...
3 - Test 7 module 7 7 клааас ...
3 - . На проводник длиной 2 м, расположенный под углом 150 градусов к...
1 - Англ плс снизу текст Read the text again and answer the questions:...
2 - Берілген тақырыптардың бірін таңдап, 1200-150 сизден тұратын хат...
3 - Прочитайте казку В. О. Сухомлинського «Флейта Тестер» (див. «Літературно-музичну...
3 - Вставьте в текст пропущенные слова, используя ключевые слова Принятие...
3 - Задача с прикладной механики...
3 - это Определите цену деления термометра, измеряющего температуру...
3
Program pr;
uses crt;
Var a, x1, x2, x3, x4:integer;
Begin
Writeln('введите 4-х значное число');
readln(a);
x1:=a div 1000;
x2:=(a mod 1000) div 100;
x3:=(a mod 100) div 10;
x4:=a mod 10;
Writeln(x1);
Writeln(x2);
Writeln(x3);
Writeln(x4);
readln;
end.