Задача 1

Гарри Поттер узнал, в Хогвартсе номера комнат преподавателей делятся без остатка на все свои цифры, в остальных же комнатах живут ученики. Помогите Гарри определить по известному номеру комнаты N (1 Формат входных данных:

Исходный файл содержит одно число N (1 Формат выходных данных:

В выходной файл вывести, букву "T", если в комнате живет учитель (число N делятся без остатка на все свои цифры кроме нуля) или "P" если ученик (число N не делятся без остатка хотя бы на одну из цифр).

Комментарии: если одна из цифр числа ноль деление на неё не учитывать.

Question

Информатика

Галуша

13 июня, 16:59

Задача 1

Гарри Поттер узнал, в Хогвартсе номера комнат преподавателей делятся без остатка на все свои цифры, в остальных же комнатах живут ученики. Помогите Гарри определить по известному номеру комнаты N (1 Формат входных данных:

Исходный файл содержит одно число N (1 Формат выходных данных:

В выходной файл вывести, букву "T", если в комнате живет учитель (число N делятся без остатка на все свои цифры кроме нуля) или "P" если ученик (число N не делятся без остатка хотя бы на одну из цифр).

Комментарии: если одна из цифр числа ноль деление на неё не учитывать.

+2

Ответы (1)

Знаете ответ?

Руфиниана · Answer 1

Var

c, n, k:int64;

t:boolean;

begin

read (n) ;

c:=n;

t:=true;

while (n0) and (t) do

begin k:=n mod 10; if k0 then

if c mod k0 then t:=false;

n:=n div 10;

end;

if t=true then writeln ('T') else writeln ('P') ;

end.