Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
HelpDZ1
29.12.2021 01:34 •
Информатика
Напишите функцию в паскале,которая "разворачивает" десятичную запись числа наоборот,например,из 123 получается 321,а из 3210-0123.(именно через функцию и с объяснением)
Показать ответ
Ответ:
gre4g3g4
06.07.2020 18:25
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 оценок)
Популярные вопросы: Информатика
karinakazakova5
25.02.2020 11:12
Сообщение занимает 3 страницы. на каждой странице по 48 строк. в каждой строке по 64 символов. найдите информационный объем та¬кого текста, если при его составлении...
БезумныйКами666
25.02.2020 11:12
Проведите мини иследование. все файлы созданые при выполнении работы сохраняйте в собственной папке.после завершения работы удалите созданый файлы....
Акбота000000
13.07.2022 21:25
Дисплей уодирования работает с 256цветами политры в режиме 640*400пикселя для кодирования изображения требуетя 1250кбайт влпрос: сколько стр видео памяти оно занимает?...
Roost11
13.07.2022 21:25
Написать на c++ с ассемблерным вставками. 1.даны целые числа k, l. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных,...
kolomietslina
01.04.2022 13:45
Задан радиус окружности. написать программу, которая находит площадь и длину окружности...
полина20042012
02.06.2023 16:03
Какой телефон лучше купить...
ника5010
05.03.2022 06:01
3. Как осуществляется поиск в сети Интернет, приведите пример за используя подстановочные символы(за по маске). ОЧЕНЬ...
sofa372
23.08.2021 09:18
Переведите, put the words in the right box...
Murua
23.08.2021 09:18
Пунктуационный разбор : может быть,...
bulatdikhin
23.08.2021 09:18
Какие суффиксы глаголов настоящего и времени есть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.