Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kater7829
13.10.2022 03:38 •
Информатика
Решить . поменять местами первую и последнюю цифру натурального числа. решение в паскале. тема while, repeat. подробно, понятно
Показать ответ
Ответ:
MrGromFull
13.08.2020 21:07
Var n,m,k1,k2,p:integer;
begin
write('n = '); readln(n);
k1:=n mod 10; //последняя цифра
k2:=n; p:=1;
while k2>9 do
begin
k2:=k2 div 10; // первая цифра
p:=p*10; // нужная степень числа 10
end;
m:=k1*p+(n mod p - k1)+k2;
writeln('m = ',m);
end.
Пример:
n = 326901574
m = 426901573
0,0
(0 оценок)
Популярные вопросы: Информатика
dimsa97
12.10.2022 22:47
Дана длина рёбра а. найти оъём куба v=a3 и площадь его поверхности s=6*a2...
zhiglinskaya861
11.10.2022 00:44
Отметьте все виды файлов, которые можно назвать документами....
владимир203
03.01.2021 12:58
3. Операция 46%10 – это …...
лизанезнающая
16.12.2022 17:40
Каковы действия согласно скрипту? Вот фото до 22:00...
azalinasabirova
12.02.2023 06:35
В электронной таблице значение формулы =SUM(B1:B2) равно 5. Чему равно значение ячейки B3, если значение формулы =AVERAGE(B1:B3) равно 6?...
leonkrotovv
16.01.2022 19:22
Дана электрическая схема, включенная в сеть однофазногопеременного синусоидального тока, и состоящая из последовательногосоединения активных, емкостных и индуктивных...
Кирилл62а
16.01.2022 19:22
Патшалық жане Республикалык кезенiн ел билеушiсi титулы...
AlinnkaBro
28.02.2022 21:50
The party is at the famandez s new...
concede
28.02.2022 21:50
Английский нужно написать письмо. ...
наталя09
03.07.2021 18:41
В каком случае ЭДС индукции будет максимальна?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = '); readln(n);
k1:=n mod 10; //последняя цифра
k2:=n; p:=1;
while k2>9 do
begin
k2:=k2 div 10; // первая цифра
p:=p*10; // нужная степень числа 10
end;
m:=k1*p+(n mod p - k1)+k2;
writeln('m = ',m);
end.
Пример:
n = 326901574
m = 426901573