Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
мама1021
04.03.2022 06:30 •
Информатика
Напишите программу для решения с клавиатуры вводится целое 2-значное число ,если число положительное то полочить новое число z c перестановкой цифр исходного числа и вывести число z на экран div и mod
Показать ответ
Ответ:
olegkashpurozzi7v
09.10.2020 06:43
PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
if n > 0 then
begin
var z := 10 * (n mod 10) + n div 10;
z.Println
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
deniwolf200
29.03.2021 19:46
Воспользуйтесь схемой Горнера для представления чисел: 1) 1234510; 2) 123458; 3) 0,123456....
Maximgrechka
29.03.2021 19:46
Дан фрагмент программы: a:=23; b:= a+7; a:=b-a; writeln (a); writeln (b) ответ:...
Злая4Пташка4
04.03.2022 23:51
3. Який оператор реалізує дію: Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку? варіанти...
timatima2000
24.04.2022 03:12
Вчем состоит удобство табличного представления информации?...
lerapro123
24.04.2022 03:12
Перевести из двоичной системы в десятичную,из десятичной в двоичную? !...
тимур617
05.04.2022 17:42
Написать программу: Заставьте компьютер случайным образом загадать букву латинского (русского) алфавита. Предложите пользователю отгадать загаданную букву ему следующим...
armanbolat98
08.11.2021 13:54
Определи истинность утверждения: Для перехода во внешние источники лучше сохранить реферат в виде веб-страницы....
squarenq
25.03.2022 04:46
Составьте классификацию из 20 любых объектов и не менее 3 уровней., буду рад. ...
Shepinvan912
04.10.2020 22:27
Спрограмириванием в паскале с оператором if. даны три целых числа a, b, c. определить, есть ли среди них хотя бы одно четное и хотя бы одно нечетное.входные данныечисла...
Алька0511
18.01.2020 04:28
Створити код для знаходження суммы чисел двохцифрового числа на мові програмування пайтон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var n := ReadInteger;
if n > 0 then
begin
var z := 10 * (n mod 10) + n div 10;
z.Println
end
end.