Предмет: Информатика,
автор: NiKaEmpty
Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc.
(не копируйте с других источников, неправильно)
Ответы
Автор ответа:
1
Мне нужно вам что то написать так как нужно написать не менее 20 символов)
Приложения:
NiKaEmpty:
5 переменных?(Var), а если сократить их число или не получится?
можно убрать х, то есть вместо него поставить а
то же самое
я просто использовал х, чтобы не "испортить" само число а
если он будет искать 0 в число 0 то не заработает приеем
это в соседней проге)
Автор ответа:
1
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.
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.
Спасибо огромное)
Интересные вопросы
Предмет: Биология,
автор: ekoptelova08
Предмет: Геометрия,
автор: Аноним
Предмет: Литература,
автор: nastabudaka
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: AMAXASLA08