tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Впаскале написать программу
Впаскале написать программу которая будет переворачивать число! (например: 16 перевернет и будет 61) нужно! !
sedvl
3 30.05.2019 16:00
0
Ответы
Artemgood
30.06.2020 18:04
Var s1,s2:string;
i:integer;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s1) div 2 do
begins1[i]:=s2[length(s1)+1-i];
s1[length(s1)+1-i]:=s2[i];
end;
writeln(s1);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
LikiMikhoelis
21.08.2019 07:00
3. вычислить сумму цифр произвольного целого числа....
ammaa09
21.08.2019 07:00
2. найти наименьший элемент массива случайных чисел...
qerenfilibrahi
21.08.2019 07:00
3. заполнить массив случайными целыми числами из отрезка [-10; 10]. элементам с четными номерами присвоить отрицательные значения, элементам с нечетными номерами – положительные....
sonyasm2006
21.08.2019 07:00
4. пользователь вводит количество элементов массива, массив заполняется случайными целыми числами, после чего выводятся те из них, что больше 50...
ЧакН0рис
21.08.2019 07:00
Пользователем с клавиатуры вводится цифровой код ( 1 или 2). если код равен 1, то вводится длина ребра куба и находится общая площадь поверхностей граней куба, а если 2,...
raniskarimov2
23.04.2020 22:50
Определите значение переменной а после выполнения алгоритма: а:=8 b:=а*5 – 30 c:=3*a / b*2 a:=a + b + с...
AdamM2
07.09.2020 19:46
Презентация на тему « Характеристики мобильных устройств»...
dawesmm
07.09.2020 19:45
Тестовое задание. 1. Какой подход не относится к измерению информации?а) содержательныйб) вероятностныйв) алфавитныйг) промежуточный2. Сообщение должно быть .а) оперативноб)...
Чай24
23.04.2022 22:29
перевести код с паскаля на пайтон var i,max,n:integer; d,c:array[1..15] of integer; procedure recurs(k,s:integer); var f,q,j:integer; begin f:=0; for j:=1 to n do if d[j]...
Tazedinova
23.04.2022 22:44
Упростить выражение (A&B&¬C)∨(A&B&C)∨(A&B)...
Популярные вопросы
Радиус основания коныса равен 6, а высота конуса равна 8. в конусе проведено...
2
Главные герои , выстрел а.с.пушкина...
2
Раскольников покушается на жизнь старухи-процентщицы так, раскольников...
2
На весах гирями уравновешены полностью наполненный водой сосуд и деревянный...
3
Напишіть твір на тему якими знаннями я збагатився на уроках української...
3
Напишите 15 сложных вопросов и ответов на них допустим : что будет,...
2
Надо вставить do/does, или don t/doesn mother ski? -yes, and bob ski?...
1
8насосов качают 8 кубометров воды за 8 часов . сколько кубометров воды...
2
Петь трезвучия от белых клавиш: т, t, tум, тув, т6, t6, т46, t46, d7....
2
Материальная точка движется по координатной прямой по закону s(t) =...
3
i:integer;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s1) div 2 do
begins1[i]:=s2[length(s1)+1-i];
s1[length(s1)+1-i]:=s2[i];
end;
writeln(s1);
end.