Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MrBOPOH
21.01.2023 00:17 •
Информатика
Втрехзначном числе x зачеркнули его вторую цифру. когда к образовавшемуся двухзначному числу справа приписали вторую цифру числа x, то получилось число n. по заданному n найти число x (значение n вводится с клавиатуры).
Показать ответ
Ответ:
дариякаримова
10.07.2020 08:55
Если внимательно прочитать условие задачи, то становится понятно, что вторая цифра числа меняется с третьей и нужно поменять их снова.
var
a, b, c, n, x: integer;
begin
Write('Введите число n -> ');
Readln(n);
a := n div 100;
c:=(n div 10) mod 10;
b:=n mod 10;
x:=100*a+10*b+c;
Writeln(x);
end.
Тестовое решение:
Введите число n -> 482
428
0,0
(0 оценок)
Популярные вопросы: Информатика
abereziuk2017
10.08.2020 22:34
Заводные жуки в квадрате Написать программу на python, отвечающую этим требованиям Есть такая математическая задача, в которой жуки двигаются из четырех углов квадрата...
ангел769
25.06.2022 08:27
решить проблему на языке Паскаль. 15. Два шарика, вращающиеся по кругу на встречу друг другу...
ром569
11.09.2022 21:23
решить задачу: (Язык Паскаль)...
Russiangirl27
05.06.2022 09:26
решить проблему на языке Паскаль. Елочка в снегу...
Denchik111111111111
05.01.2020 14:56
Задание с картинки 6. Чорно-біле растрове зображення кодується по рядках, починаючи з лівого верхнього кута і закінчуючи в правому нижньому кутку. При кодуванні 1...
nikitavor7135
09.04.2020 00:37
за ответ. Укажіть комах, представники яких пристосувалися до життя у прісних водоймах: а) прямокрилі; б) метелики; в) таргани; г) жуки...
marinandnatasha1
22.11.2020 17:46
Створити файл, що містить розклад роботи лікаря. Вивести дні тижня, у які лікар працює до обіду. Код нужен на С++...
соня1583
25.03.2023 12:21
1. Размер рисунка на экране монитора уменьшен в двое по обеим координатам. Является ли такое преобразование неискажающим? (Да/нет и почему). 2. Во сколько раз изменится...
saparhanaruzhan
04.11.2021 01:36
Дан массив, размером 8. Элементы массива случайные числа из диапазона [0, 15]. Отсортировать массив по возрастанию. Вывести исходный и измененный массив в 2 строки....
Вася2288221
23.07.2021 09:16
Почему принципы функционирования нейронных сетей зависят от их типов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b, c, n, x: integer;
begin
Write('Введите число n -> ');
Readln(n);
a := n div 100;
c:=(n div 10) mod 10;
b:=n mod 10;
x:=100*a+10*b+c;
Writeln(x);
end.
Тестовое решение:
Введите число n -> 482
428