Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
katrinmirz
06.09.2020 17:31 •
Информатика
Надо ! прямо сейчас урок информатики , а я не понимаю ! дано двузначное число ,первое увеличить на единицу , последнее уменьшить на единицу
Показать ответ
Ответ:
дэнчик60
19.07.2020 11:49
Var
n,n1,n2:integer;
begin
Write('Введите целое двухзначное число: ');
Readln(n);
n1:=(n div 10)+1;
if n1=10 then n1:=0;
n2:=(n mod 10)-1;
if n2=-1 then n2:=9;
Writeln('Результат: ',n1,n2)
end.
Тестовое решение:
Введите целое двухзначное число: 38
Результат: 47
Введите целое двухзначное число: 90
Результат: 09
0,0
(0 оценок)
Популярные вопросы: Информатика
ynifar
03.06.2023 21:37
1.каждый символ закодирован двумя байтом. оцените информационный обьем сообщения в кодировке unicode: в одном метре-100 сантиметров...
Verozan2103
13.06.2020 14:02
Вводится слово из 4 букв. определить, есть ли в нем одинаковые буквы. в программе паскаль !...
vladlena24
22.10.2022 11:24
Определите значение переменной a после выполнения алгоритма: 1) a := 4; 2) b := 6; 3) b := 8 + a * b; 4) a := b / 4 * a. Определите значение переменной а после выполнения данного...
chizhikovilya
22.02.2020 15:03
Записать свою задачу в тетрадь, сделать к ней краткое условие и решение. Ввести данные в табличный процессор и найти ее оптимальное решение. И решить в Excel Задача в прикреплённом...
znaika757
06.07.2020 21:54
3.Сопоставьте команды и их назначение ( ): 1) Команда выполняет действия А) не только при условии истинности тип на териге 10 2) Команда, отвечающая за бесконечное выполнение...
vitalyrtss
21.05.2020 12:56
Какие устройства подсоединяются к материнской плате?...
evgenscorp1
11.08.2022 15:12
1)По заданным таблицам истинности запишите логические функции составте логические схемы 2)Запишите логическую функцию, описывающую состояние схемы, 3)постройте таблицу истинности...
ttmail95
09.03.2020 06:34
1. Главным районом производства тканей в России является а) Урал в) Центральная Россия б) Европейский Юг г) Европейский Север 2. Лидером по улову рыбы в России является а) Дальний...
метал3
06.05.2022 16:29
напишите сочинение на тему: Г. Нисского На лодке. Вечером Очень...
Anton020202
29.07.2020 02:28
Стр 86 рисунок 48 нанести на контурную карту...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,n1,n2:integer;
begin
Write('Введите целое двухзначное число: ');
Readln(n);
n1:=(n div 10)+1;
if n1=10 then n1:=0;
n2:=(n mod 10)-1;
if n2=-1 then n2:=9;
Writeln('Результат: ',n1,n2)
end.
Тестовое решение:
Введите целое двухзначное число: 38
Результат: 47
Введите целое двухзначное число: 90
Результат: 09