Ответы на вопрос:
mod - берет остаток от деления
div - берет целое число от деления(отбрасывает остаток)
по этим функциям можно найти все цифры любого числа. вот программа которая находит из трёхзначного.
var a,b,c,z: integer; beginreadln(z); a: =z mod 10; b: =(z mod 100) div 10; c: = a div 100; writeln(a, ' ', b, ' ', c, ' '); end.
program cifry; var a,x1,x2,x3: integer; begin write('введите трехзначное число'); readln(a); x1: =a div 100; x2: =(a div 10) mod 10; x3: = a mod 10; writeln('цифра сотен числа ', а,' равна ',x1); writeln('цифра десятков числа ', а,' равна ',x2); writeln('цифра единиц числа ', а,' равна ',x3); readln; end.
Готово. не пугайтесь swap, просто ему "пузырёк" выглядит лучше. программа во вложении. upd: чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kateshopina070326.02.2022 13:43
-
li49412.04.2021 09:28
-
ТыСдохМнепох06.12.2020 12:02
-
алекс91506.06.2021 20:44
-
Murew29.03.2020 11:59
-
Maksprianikov23.05.2022 21:01
-
egyrt02.02.2022 17:24
-
pzuzuk21.09.2020 20:56
-
говнетим55528.01.2022 07:25
-
Alikman12327.05.2023 19:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.