Даны два числа. Определить цифры, входящие в запись как первого так и второго числа.
Написать на паскале.
225
227
Ответы на вопрос:
var
a, b, c: longint;
d: byte;
begin
readln(a,b);
while a > 0 do begin
d := a mod 10;
a := a div 10;
c := b;
while c > 0 do begin
if c mod 10 = d then begin
write(d,' ');
break;
end;
c := c div 10;
end;
end;
writeln;
end.
Популярно: Информатика
-
алиная225.06.2023 06:10
-
витка902.08.2020 04:47
-
LoL228LoL228LoL22818.01.2023 02:49
-
marinalebedeva523.02.2020 08:14
-
IcecreamXD23.11.2021 05:02
-
16Евгения1611.12.2020 14:02
-
BD2005122.01.2023 04:25
-
Аня2017150219.05.2022 08:29
-
RasDua28.01.2021 03:55
-
hmrl12311.03.2023 06:27