Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Meager36655
23.12.2021 07:27 •
Информатика
Втрехзначном числе х зачеркнули первую цифру. когда полученное число умножили на 10, а произведение сложили с первой цифрой числа х, то получилось число n. по заданному n найти число х (значение n вводится с клавиатуры, 1 < = n < =999 решить
Показать ответ
Ответ:
DathVayolet
04.10.2020 05:25
//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423
0,0
(0 оценок)
Популярные вопросы: Информатика
Зайка122222222
09.06.2022 23:04
Вводится шестизначное натуральное число. Проверить, является ли оно счастливым (сумма первых трёх цифр равна сумме последних трёх цифр) и, если не является, вывести ближайшее счастливое...
Айымгул1
01.04.2022 13:01
Зробіть презентацію в Power Point,рекламу українських сувенірів,щоб один із слайдів змінював колір тксту (із зірочкою в правому верхньому куті) із синього в червоний колір,із зображеннями....
сдаддае
07.11.2022 20:23
Напишите программу которая выводит ряд квадраты чётных чисел до 30 используя оператор while...
anonim198
13.02.2022 14:33
Определите значение целочисленных переменных a и b после выполнения фрагмента программы; a: =2468; b: =(a mod 1000)*10; a: =a div 1000+b...
1Дарина1234
13.02.2022 14:33
2. дано четырехзначное число. найти число, полученное перестановкой второй и третьей цифры заданного числа. (например, 4567 4657)...
nazmiburkanova7
25.03.2020 20:51
Задание в C++!! Найти все четырехзначные числа, у которых сумма первых двух цифр равна сумме двух последних...
mashoklomakina
16.06.2021 05:06
если не сдам хотяб на 4,мама прибьет.....
larisa114
26.02.2023 07:19
По дороге едет автомобиль весом 1,5 тонны, каков его вес и с какой силой он действует?...
YMNIKVKOWICKAH
30.08.2022 17:10
They (bring/always) presents when they (visit) us....
ssyyppeerrmmaax
20.09.2021 07:38
В каком ряду во всех словах пишется Е? у брон..., в ине..., в волнень..., к тёщ..., в планетари..., о знамен... на остри... (ножа), о лихолеть..., к Прасковь..., в низовь... Волги,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423