Информатика, опубликовано 2018-08-22 21:26:23 by Гость
СРОЧНО ПЖЛСТ .дано число n и цифра a. Записать число полученное из n удалением всех а.ПАСКАЛЬ!!!
Ответ оставил Гость
Var n,a,m,s,q:integer;
begin
read(n,a);
q:=1;
while n>0 do begin
s:=n mod 10;
if sa then begin
m:=m+s*q;
q:=q*10;
end;
n:=n div 10;
end;
writeln(m);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на