Помогите, пожалуйста, решить задачу на паскале. Срочно.
Даны два натуральных числа m и n. (m,n ≤ 9999). Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

Ответы (1)

Берикхан 27.08.2025 3

var
a, b: integer;
x, y: string;

begin
readln(a);
Str(a, x);
readln(a);
Str(a, y);

for b := 1 to length(y) do
if (Pos(y[b], x) > 0) then
begin
writeln('Есть!');
exit;
end;
writeln('Нет!');
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ