машина поста.нужно составить программу
скопировать число ,записанное в унарной системе счисления. каретка стоит на самой левой метке,входящей в число.
296
460
Ответы на вопрос:
Var f,s: string; i: integer; begin read(s); for i: =1 to length(s) do if(s[i]< '0')or (s[i]> '9')then f: =f+s[i]; writeln(f); end.
Популярно: Информатика
-
nastyahanna472810.03.2022 01:50
-
shkmidtvp0746621.12.2022 21:32
-
alins322.10.2020 11:47
-
dribinl4124.10.2021 07:41
-
5555Анастасия555509.04.2023 15:21
-
mariarura31.10.2020 17:47
-
Варвара7563925.03.2020 03:51
-
ruslanbekka09.02.2021 07:50
-
atopio06.08.2021 23:24
-
Derve19.02.2020 15:45