Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ktoyatokoyinter
27.07.2021 11:14 •
Информатика
Дано двухзначное число,поменять местами цифры блок схема и паскаль.
Показать ответ
Ответ:
ksimonova196
03.10.2020 07:56
//Pascal ABC.NET v3.1 сборка 1172
Var
a,b:integer;
begin
readln(a);
b:=a mod 10*10+a div 10;
writeln(b);
end.
Пример ввода:
12
Пример вывода:
21
0,0
(0 оценок)
Популярные вопросы: Информатика
Asuacom
19.05.2020 14:15
Решите по программированию как мы знаем шоколадки дарят только тем, кто хорошо тест. поэтому в детском саду №603075 решили подарить 228 грамм шоколада каждому ребенку, кто набрал...
Mirror11
27.05.2021 06:01
Даны действительные числа a1, n. поменять местами первый наибольший элемент с последним наименьшим элементом. на питоне!...
CoreyTaylor666
24.10.2020 08:53
Pascalabc. из массива целых чисел сформировать новый массив, вставляя после каждого четного кратного 4 последний элемент исходного массива. вывести старый, новый массивы и количество...
sanyaraku
29.01.2020 15:56
Два игрока петя и ваня играют в следующую игру перед игроками лежит куча камней игроки ходят по очереди первый ход делает петя за один ход игрок может добавить в одну из куч один...
Sofia2224
22.07.2022 22:53
Скласти ігрову програму за поданим алгоритмом: 1. Комп ютер генерує ( задумує ) випадкове число від 1 до 100; 2. Користувач робить спробу відгадати число; 3. комп ютер порівнює...
dickosh97
13.10.2020 06:25
с заданием в Microsoft office Excel...
Lisova1
24.07.2020 22:49
с подробным решением на листочке желательно...
Chelovek987654321
13.04.2020 03:29
Осуществите цепочку превращений : NH3- NO- NO2 - HNO3...
Солнцеголовик
13.04.2020 03:29
Бір жасушалы және көп жасушалы организмдерді салыстыру...
Apsalikovat
13.04.2020 03:29
Изономертия.Нужно построить аксонометрический чертеж этой детали...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
a,b:integer;
begin
readln(a);
b:=a mod 10*10+a div 10;
writeln(b);
end.
Пример ввода:
12
Пример вывода:
21