Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
panda4918
29.11.2022 14:20 •
Информатика
Напишите программу, которая "разворачивает" число наоборот, например, из числа 123 строит число 321. используйте функцию для выполнения этой операции. pascal
Показать ответ
Ответ:
marikalinich
13.07.2020 08:08
function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Марси667
10.10.2020 13:57
Для чего преднозначен табличный процесор microsoft excel?...
2005161718
14.06.2021 17:48
ВОПРОСЫ И ЗАДАНИЯ 1. Опишите задачи и функции ОС. 2. Что такое драйвер устройств? 3. Определите, какая ОС установлена на вашем компьютере? 4. Какие утилиты вы знаете? Для чего они...
Nadezhda136
11.10.2022 00:10
3. Опишіть змінні: x, y - корені рівняння; K, L, C, D - величини дійсного типу; V, P - величини логічного типу....
dania45451
13.10.2020 02:26
Срешением в pascal, массивы. вопрос- дана матрица a(nxn). вывести номера строк и столбцов в которых есть одинаковые элементы....
akhdogru
06.12.2020 04:03
Расшифровать равенство КЛОП + КЛОП + КЛОП + КЛОП = ПОЛК...
karinaalisa
06.12.2020 04:03
На диагонали ВD квадрата АВСD взяты точки Е и Н так, что прямая АЕ пересекает сторону ВС в точке М, а прямая АН пересекает сторону...
elizavetanosova2000
06.12.2020 04:03
Сколько всего можно записать различных трёхзначных чисел, не содержащих в записи цифру 7?...
vladinfo1
06.12.2020 04:03
На крыльце дома сидят мальчик и девочка. Женя говорит: «Я - мальчик». Саша говорит: «А я - девочка». Известно, что по крайней...
юлия1628
06.12.2020 04:03
По кругу расставлены цифры 1, 2, 3, 4, 5, 6, 7, 8, 9 в произвольном порядке. Каждые три цифры, стоящие подряд по часовой стрелке,...
ТомКаулитц
06.12.2020 04:03
За круглым столом сидят 2016 человек – рыцари и хитрецы. Каждый сидящий сказал: «Один из моих соседей – рыцарь, другой – хитрец»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
end.