tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное четырехзначное
Дано натуральное четырехзначное число найти число , полученное перестановкой 2 и 3 цифр заданного числа. составить в pascal при div и mod
AntonTeplyakov
1 25.06.2019 21:20
0
Ответы
vehera087
20.07.2020 21:28
Var n,a,b,c,d:integer;
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katenautkina69
23.04.2021 15:26
Напишите программу вычисляющую сумму цифр заданного числа n Используйтесь процедуру...
MarinaSc1
23.04.2021 15:24
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в кучу...
технолигия
28.08.2019 01:40
На рисунке показано ,как надо подготовиться к уроку рисования.составь алгоритм подготовка к уроку рисования . на рисунке нарисовано: альбом открытый,стакан с водой,открытые...
BcezHaNKa
30.05.2019 21:30
Напишите программу, которая вводит значения четырех переменных a, b, c, d типа integer и выводит их сумму. (паскаль)...
HiКАK
30.05.2019 21:30
Составить 3 алгоритма : 1) технический 2) бытовой 3) кулинарный...
захар182
17.11.2019 20:37
Составить по схеме соответствующую структурную форму...
olkvochka1707
17.11.2019 20:37
Класс (понятие объектно-ориентированного программирования) - является абстрактным объектом - является реальным объектом \/ /\ экземпляр класса (понятие объектно-ориентированного...
wigswond
17.11.2019 20:39
Разобраться с информатикой , составьте программу и забейте в окно вывода числа заранее )...
vtnastya05
17.11.2019 20:45
5-тапсырма.интернеттен көшіріп алмай өз ойларыңнан шығарып беріңіздерші өтінемін сіздерден....
СВСЛ1
01.04.2020 16:29
по информатике.Програмированин по Паскалю на ПК.Номер семь, прикрепите скриншот.Благодарю...
Популярные вопросы
В треугольнике OPE OP=PE=13 см OE=10см Медианы треугольника пересекаются...
1
решить пример решите уравнение:а) (x)=6,84 б)=-5,4...
3
Үндестік заңына бағынбай тұрған сөзді тап. əрқашан, адамдар, көшпенд...
2
Выпишите тему текста, основную мысль. Яблоня Сиверса – одна из самых известных...
1
Не надо нашла ответ на вопрос...
3
1. Какие необходимые условия для фотосинтеза вы увидели в опытах? 2. Для...
3
Как здесь найти общее сопротивление? ...
3
№1 Укажите наибольшее целое решение неравенство x хартын4х7х+25х+41)-- ХК635х+12)9...
3
32 гектара перевести в арты...
3
Менің атым Қожа повесіндегі құндылықтарды атап жаз, кем дегенде 5 құндылық...
3
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
end.