СРОЧНО ПЖЛСТ .дано число n и цифра a. Записать число полученное из n удалением всех а. ПАСКАЛЬ!!!
Answers & Comments
ildarapple
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.
Answers & Comments
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.