Ответы на вопрос:
PascalABC.NET
begin
var a := ReadInteger('Введите число от 100 до 999 = ').Clamp(100,999);
Print('ответ:',a div 100 + a mod 10 * 100 + a mod 100 div 10 * 10);
end.
Популярно: Информатика
-
sasha2211430.10.2020 21:07
-
меси513.04.2020 08:05
-
khusainova060627.12.2022 02:22
-
Garik2312330.04.2021 22:39
-
Vla9D02.08.2021 17:50
-
LollyMelor01.04.2021 09:06
-
flamerplay12312.11.2020 13:02
-
brijet200720.11.2020 20:50
-
Uedo25.04.2020 04:08
-
kiryakuantseva01.06.2021 17:18