Дано черырехзначное число две средние цифры убрали - вопрос №8861686 от falala1 30.10.2020 08:10

Question

Информатика: Дано черырехзначное число две средние цифры убрали и приписали их в конец числа вывести результат pascall

falala1 · Answer

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=').ToString;
Writeln(n[1],n[4],n[2:4])
end.

Пример
n= 1458
1845