Как в паскале удалить цифру из числа? Какая для этого команда? :)
Как в паскале удалить цифру из числа? Какая для этого команда? :)
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
c:string;
begin
read(a,b);
while (a<>0) do begin
if a mod 10 <> b then c+=inttostr(a mod 10);
a:=a div 10;
end;
for a:=length(c) downto 1 do
write(c[a]);
end.
Не нашли ответ?
Похожие вопросы