Ответы на вопрос:
function f(a, b, c: Integer; n: Longint): Longint;
var
i, m, r: Longint;
k, ka, kb, kc, ko: Integer;
begin
r:=0;
for i:=100 to n do begin
if i mod 100000=0 then Write(i,', ',r,#13);
m:=i; ka:=0; kb:=0; kc:=0; ko:=0;
while (m>0) and (ko=0) do begin
k:=m mod 10;
if k=a then Inc(ka)
else if k=b then Inc(kb)
else if k=c then Inc(kc)
else Inc(ko);
m:=m div 10;
end;
if (ka>0) and (kb>0) and (kc>0) and (ko=0) then Inc(r);
end;
f:=r;
end;
var
a, b, c, m: Integer;
n: Longint;
begin
Write('Введите цифры a, b, c и число n: '); ReadLn(a,b,c,n);
m:=f(a,b,c,n);
WriteLn('На отрезке 100..',n,' чисел из цифр ',a,', ',b,', ',c,': ',m);
end.
var
i, m, r: Longint;
k, ka, kb, kc, ko: Integer;
begin
r:=0;
for i:=100 to n do begin
if i mod 100000=0 then Write(i,', ',r,#13);
m:=i; ka:=0; kb:=0; kc:=0; ko:=0;
while (m>0) and (ko=0) do begin
k:=m mod 10;
if k=a then Inc(ka)
else if k=b then Inc(kb)
else if k=c then Inc(kc)
else Inc(ko);
m:=m div 10;
end;
if (ka>0) and (kb>0) and (kc>0) and (ko=0) then Inc(r);
end;
f:=r;
end;
var
a, b, c, m: Integer;
n: Longint;
begin
Write('Введите цифры a, b, c и число n: '); ReadLn(a,b,c,n);
m:=f(a,b,c,n);
WriteLn('На отрезке 100..',n,' чисел из цифр ',a,', ',b,', ',c,': ',m);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
tima23qwerty26.08.2022 14:51
-
bat9qee16.12.2021 14:48
-
bryaaa27.03.2021 02:52
-
anastysiaparsh23.12.2021 10:55
-
Аксинья2124.03.2020 13:22
-
diana125sirena62rus03.06.2021 22:52
-
красава00527.01.2022 00:11
-
borisrrvdow9kk721.11.2021 15:21
-
vikamorgunova023.06.2023 04:29
-
aleksapopov123.12.2022 12:09
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.