Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатур...

July 2022 1 2 Report

Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc.
(не копируйте с других источников, неправильно)

Answers & Comments

AnonimusPro

Verified answer

Program n1;
var a,n: integer;
f: byte;
begin
f:=0;
readln(a,n);
while a<>0 do
begin
if a mod 10=n then f:=1;
a:=a div 10;
end;
if f=1 then write('цифра ',n,' присутствует в числе')
else write('в числе нет цифры ',n);
end.

Answers & Comments

Verified answer

opredelit kolichestvo veshestva 3610 azotnoj kisloty nho

nazovite nezavisimye strany latinskoj ameriki 8 gosudarstv

kak vy ponimaete epigraf k pese revizor epigraf na zerkalo necha penyat ko

obraz zhizni sovremennogo rossijskogo podrostka3469321dfd09546d6f15277910838fba 63897

kakie promyshlennye obekty sushestvovali v chelyabinske v petrovskoe vremya

obraz zhizni sovremennogo rossijskogo podrostka72d452b1abec21fa175cad745b0410f0 92549

h 228668a2e61b832c42ccf922270203546 21183

opredelite massovuyu dolyu natriya v karbonate natriya

Present perfect: affirmative and negative...

boring...

рекомендуемые вопросы

Helpful Links

Helpful Social