Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Adele04
20.05.2020 02:00 •
Информатика
25 ! выполнять в pascalabc.! дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел.
Показать ответ
Ответ:
vehera087
07.10.2020 01:07
Var x,x1,x2:integer;
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.
Пример:
516
165 651
1332
0,0
(0 оценок)
Популярные вопросы: Информатика
kharchenko219633
30.01.2023 17:25
Определите основные характеристики процессора...
mashaguglik
16.06.2020 03:35
Сделайте вывод к диаграмме...
alioo
30.07.2020 11:52
Співставте тип даних з його значенням 1 doc A str 2 - 4.777 Б float 341 B int r bool...
1Nicol1
10.04.2021 05:31
№1. Ниже приведена программа, записанная на пяти языках программирования. алг нач цел s, t ввод s ввод t если s 9 или t 9 то вывод YES иначе вывод NO все кон Сколько было запусков,...
sanya3202
15.11.2020 18:15
Автоматизированный прибор производит 20 измерений в секунду. Запись каждого измерения занимает 1 байт информации. Какой объем памяти потребуется компьютеру для записи измерений,...
Teroristka123
11.03.2023 07:01
Ввести одномерный массив A из N элементов. Вычислить Srg– среднее геометрическое положительных элементов массива. Заменить на Srg первый элемент массива. Массив вывести до и после...
ВалерияКис
15.03.2022 18:45
Инвестор вкладывает в бизнес 2000 грн. (Или открывает на эту сумму счет в банке) на условиях 5% ставки прибыли ежемесячно. Какова стоимость инвестиции через 90 месяцев?...
askerova1408
19.02.2022 13:35
Найти область определения функции у=√х + √(5-х)...
саша3421342
19.02.2022 13:35
3куплет песни снежинки музыка ермолова...
Parade93
19.02.2022 13:35
Решите, , показательное уравнение 7^x2-6x =1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.
Пример:
516
165 651
1332