Ответы на вопрос:
Var c,n,k: int64; t: boolean; begin read(n); c: =n; t: =true; while (n< > 0) and (t) do begin k: =n mod 10; if k< > 0 then if c mod k< > 0 then t: =false; n: =n div 10; end; if t=true then writeln('t') else writeln('p'); end.
Популярно: Информатика
-
Sayat200725.02.2023 08:36
-
keue43543626.02.2020 19:12
-
MrEdgik25.05.2021 09:47
-
gta123465715.07.2021 14:00
-
Vikof02.01.2020 00:54
-
egorjanov220022.01.2020 02:41
-
Vikadianalol18.12.2021 00:50
-
isaev40daniil1427.06.2023 14:26
-
DenNewLen3823.07.2021 16:43
-
реа20010.11.2020 22:20