Дано m чисел отыскать числа которые есть в записи каждого из
Дано m чисел отыскать цифры которые есть в записи каждого из m чисел( pascal ABC)
Задать свой вопрос1 ответ
Пармехин
Колька
Var
i, j, m, n: integer;
a, b: array[0..9] of boolean;
begin
for i := 0 to 9 do a[i] := true;
write('Введите количество чисел: ');
read(m);
write('Введите числа: ');
for i := 1 to m do
begin
for j := 0 to 9 do b[j] := false;
read(n);
if n = 0 then a[0] := true;
while n lt;gt; 0 do
begin
b[n mod 10] := true;
n := n div 10;
end;
for j := 0 to 9 do a[j] := a[j] and b[j];
end;
for i := 0 to 9 do if a[i] then write(i, ' ');
end.
i, j, m, n: integer;
a, b: array[0..9] of boolean;
begin
for i := 0 to 9 do a[i] := true;
write('Введите количество чисел: ');
read(m);
write('Введите числа: ');
for i := 1 to m do
begin
for j := 0 to 9 do b[j] := false;
read(n);
if n = 0 then a[0] := true;
while n lt;gt; 0 do
begin
b[n mod 10] := true;
n := n div 10;
end;
for j := 0 to 9 do a[j] := a[j] and b[j];
end;
for i := 0 to 9 do if a[i] then write(i, ' ');
end.
Светлана
По условию требовался код на PascalABC, а решение представлено в PascalABC.NET
Нелли Недкова
Исправил
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов