Гарри Поттер вызнал, в Хогвартсе номера комнат преподавателей делятся без остатка
Гарри Поттер узнал, в Хогвартсе номера комнат учителей делятся без остатка на все свои числа, в других же комнатах живут воспитанники. Помогите Гарри определить по известному номеру комнаты N (1 Формат входных данных:
Начальный файл содержит одно число N (1 Формат выходных данных:
В выходной файл вывести, буковку T, если в комнате живет учитель (число N делятся без остатка на все свои цифры кроме нуля) либо P если воспитанник (число N не делятся без остатка желая бы на одну из цифр).
1 ответ
Чувашова
Кристина
//Это можно стереть. Если в N есть 0 то тогда программка выведет NO.
program z1;
var b,c,d,i,s,l:integer;
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if d=0 then l:=1;
end;
if l=0 then begin
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if (s mod d)=0 then c:=c+1;
end;
end
else
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (clt;gt;b) then write('P');
end.
program z1;
var b,c,d,i,s,l:integer;
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if d=0 then l:=1;
end;
if l=0 then begin
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if (s mod d)=0 then c:=c+1;
end;
end
else
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (clt;gt;b) then write('P');
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов