tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в паскале:
Написать программу в паскале: дано трехзначное число. найти число, полученное перестановкой первой и третьей цифры заданного числа.
musa31052001
3 31.05.2019 11:40
0
Ответы
Milenadaw
01.10.2020 15:56
Var a,b,c,n:integer;beginreadln(n);{находим 1 цифру}a:=n mod 10;b:=n div 10 mod 10 ;c:= n div 100;n:=100*a + 10*b + c;writeln(n);end.
ПОКАЗАТЬ ОТВЕТЫ
varzhyv
01.10.2020 15:56
Другой
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vgrecuha6
16.06.2019 19:50
Установите соответствие: cpu постоянная память ram оперативная память rom процессор hdd звуковая память sound card жёсткий диск...
fil2143878
16.06.2019 19:50
Вчем состоит различие между cd и dvd? в чём их сходство?...
Kissss1111
16.06.2019 20:00
Винтернете собраны сведения со всего мира.все эти сведения размещают на можно сравнить с и книги,сайты состоят из сайта называются сайт имеет которой можно попасть на другие страницы...
Churikowao2004
16.06.2019 20:00
Робота з клавіатурним тренажером практична робота 2...
sananana1
16.06.2019 20:00
Чем отличается память человека от памяти компьютера...
KristinaE16
16.06.2019 20:00
Каждая точка экрана может принимать одно из двух состояний - чёрный цвет и белый. какое количество информации необходимо, чтобы закодировать цвет каждой точки?...
Fotima100
16.06.2019 20:00
На рисунке представлен растровый графический файл размером 4х4 пикселей , содержащий все допустимые цвета. во скоро раз изменится объем файла, если все пиксели крайнего правого столбца...
verinikamusia
16.06.2019 20:00
Система нахождения компьютерных вирусов...
Artemis45677654
16.06.2019 20:00
Исполнитель черепашка выполняет программу: для k от 1 до n выполнить вперёд k направо 90 кц ввести n и определить расстояние между начальным и конечным положением исполнителя. решить...
looney2017
16.06.2019 20:00
Из двух целочисленных массивов одинаковой размерности сформировать третий массив, каждый элемент которого равен меньшему из соответствующих элементов данного массива....
Популярные вопросы
Золотой век римской поэзии а)начало v века до н.э-середина viвека до н.э в)конец...
1
Высота первого дома 15 м, а второго - на ? м больше. вставляй вместо числа 9,12,24...
1
Какие слова пишутся так же как и произносятся ледокол бриг буксир барк бот...
2
Сократите 5а(2)-10-7а-14-2а-2-5а(2)-5а=0...
2
Виды орфограмм в корне слово шорох? ?...
1
Пофантазируйте, что было бы, если бы уже наступили каникулы.напишите об этом, употребив...
3
Лапки такие маленькие что мне кажется что он настоящий. есть ли в этом предложении...
2
Выберите верные суждения ( 3 шт передвижения веществ по растению : по , по ситовидным...
1
Что не является объектом операционной системы? а)файл в)папка с)окно д)монитор...
3
Что означает выражение и кто его автор «четвертому риму не бывать»...
3
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
end.