Ответы на вопрос:
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.
Популярно: Информатика
-
sonya40107.02.2022 19:22
-
olgazdobickaya111.02.2020 14:44
-
Анна367207.08.2020 15:57
-
kirillkleptzov28.02.2021 18:08
-
Хаурма710.04.2021 12:17
-
Vostafi31.01.2020 00:21
-
ffjuee03.10.2022 04:40
-
fialka0802.12.2021 20:05
-
dimevdokim05.08.2021 03:08
-
sudak708.03.2020 10:56