Дано число n и цифра a. записать число полученное из n удалением всех а.

angelina2410 angelina2410    3   26.07.2019 17:40    0

Ответы
Анечка04Анюта Анечка04Анюта  25.09.2020 01:17
Var n,a,m,s,q:integer;
begin
read(n,a);
q:=1;
while n>0 do begin
s:=n mod 10;
if s<>a then begin
m:=m+s*q;
q:=q*10;
end;
n:=n div 10;
end;
writeln(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика