:составить программу которая из данного четырехзначного числа получает новое четырехзначное число поменяв цифры. первую с последней и вторую с третьей. pascal
241
482
Ответы на вопрос:
работает на pascal abc
(решил чтобы при вводе и выводе было число,а в процессе решил перевести строчный тип,чтобы было быстрее)
var
ch: longint;
chs: string;
begin
read(ch);
chs: =inttostr(ch);
swap(chs[1],chs[4]);
swap(chs[2],chs[3]);
writeln(strtoint(chs));
end.
Популярно: Информатика
-
аминушечку26.10.2020 06:40
-
markis413.03.2023 08:49
-
Дони121429.03.2021 21:02
-
givka107.11.2022 05:09
-
yasmina253404.07.2020 09:11
-
1MQL219.11.2021 15:02
-
ДаРоВаНиЕ26.04.2022 10:55
-
agasan42031.08.2020 22:24
-
Amalik024.11.2022 15:15
-
pollyshtal3333333323.10.2022 22:26