Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
maksym200178
15.02.2023 15:58 •
Информатика
Решить в паскале,по информатике типа integer. дано двузначное число.вывести число,полученное при перестановке цифр исходного числа. возьмем к примеру число 35 нужно получить 53,я не понимаю как решить,.
Ответ:
lizok210
03.10.2020 01:59
Program name;
var a,c:integer;
begin
read(a);
repeat
begin
a:=a div 10;
c:=c*10+(a mod 10);
end;
until c<10;
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Маргоht
29.05.2020 09:02
Добрый день! По информатике задали файл ПДФ переделать в документ. Кроме конвертирования как можно это сделать?...
газмадошка4
19.08.2022 06:07
Чему будет равна переменная с после выполнения этой программы: а = 22; b = 4; b = а % b + 4; с = а % b + 1;...
чина22
03.10.2022 17:08
Чему будет равно значение переменной a после выполнения этого цикла? i = 4; a = 12; while ( i 5 ) { a += i; i++; } кто прям сейчас может с 2 тестами по программированию,заплачу...
kochanovaleksa
21.08.2020 00:33
За итоговый тест 10002 учеников получили оценку«5», 10102 учеников получилиоценку «4», 1112 учениковполучили оценку «3», одинученик не справился сработой и 102 отсутствовало.Сколько...
LUKARIN
01.02.2020 22:44
Задание 1 ( ). Из точки A к окружности проведены две касательные: AB и AC (B и С – точки касания). Определите градусную меру дуги BC, если расстояние от точки A до...
nikitkaandreev1
20.06.2021 11:01
Решите задачу плз очеь важно там Чему ...
Nikiton101
28.03.2023 05:19
Чому шептало повертаються з волі до господаря...
Darklife1
19.04.2023 10:02
Брошены 3 кубика (игральные кости). С какой вероятностью сумма выпавших очков меньше 5?...
Kata8i77866
13.04.2020 19:00
Завдання: утворити з поданих слів словосполучення, визначити головні й залежні слова.(Батьківський) земля; не знати (втома); прочитати в (підручник); на (шкільна)...
cwqfqeggqeg
06.04.2022 11:03
Заповни таблицю: укажи риси характеру Чепіжного, підтвердь цитатою з тексту...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,c:integer;
begin
read(a);
repeat
begin
a:=a div 10;
c:=c*10+(a mod 10);
end;
until c<10;
writeln(c);
end.