Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое удалением удалением из исходного всех цифр а.

Question

Информатика

Милана

9 июня, 20:54

Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое удалением удалением из исходного всех цифр а.

+5

Ответы (1)

Знаете ответ?

Корнюха · Answer 1

Var n, m, k, p, a:integer;

begin

write ('n=') ; readln (n) ;

write ('a=') ; readln (a) ;

m:=0; p:=1;

while n0 do

begin

k:=n mod 10;

if ka then begin m:=k*p+m; p:=p*10; end;

n:=n div 10;

end;

writeln ('m=', m) ;

end.