Регистрация
ART666999
08.08.2022 23:56
Информатика
Есть ответ 👍

Скласти програму на мові Turbo Pascal для розв'язання задач

113
378
Посмотреть ответы 1

Ответы на вопрос:

kristinabelousova005
kristinabelousova005
4,4(58 оценок)

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.

Популярно: Информатика