Дано четырехзначное число, найти число переставив первую и вторую, третью и четвертую цифру местами. Паскаль
555Sasha444
1
07.12.2021 18:39
6
Другие вопросы по теме Информатика
tatyana101035
03.07.2019 16:40
dstudencheskaya
24.11.2020 07:22
БекБека
24.11.2020 07:23
kfisatidi
08.06.2019 04:00
remizowanikaggr
06.07.2019 13:00
HeeeeelpPlz
14.04.2020 22:46
healarcimbo
14.04.2020 22:45
martirosyan01
24.12.2020 13:44
Nikidiy
24.12.2020 13:44
Популярные вопросы
- Что не любят твои родители и ты? написать 3 предложения....
2 - Определите массу натрия прореагировавшего с серой массой 0,64 грамма...
2 - Периметр прямоугольника =24см.одна сторона на 6 см больше другой.найдите...
1 - Напишите интересный доклад по , небольшой. тема бермудский треугольник...
3 - Какую загадку можно загадать по языку...
1 - 20 велосипедов, у них 55 колёс .сколько жвухкллесных и трёх колёсных?...
1 - Сделайте мини сочинение на тему: что я делаю для того чтобы быть лучше...
2 - Почему в 13 веке произошёл разрыв между церквами рима и константинополя?...
3 - Решить деления тремя с: 2= 2с....
3 - на писать сочинение на тему: менің сүйікті фильмдерім мои любимые...
3
var
x : integer;
begin
readln(x);
x := (x div 100 mod 10) * 1000 + (x div 1000) * 100 + (x mod 10) * 10 + (x div 10 mod 10);
writeln(x);
end.