Всі умови | Умова: Дано натуральне число n. Викинути з запису числа n цифри 0 і 5, залишивши колишнім порядок інших цифр. Наприклад, з числа 59015509 повинно вийти 919.
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №207)
program Pr207;
var
n, newN, i, k, number : integer;
begin
readln(n);
newN := 0;
k := 1;
while n <> 0 do
begin
number := n mod 10;
if (number <> 5) and (number <> 0) then
begin
newN := newN + number * k;
k := k * 10;
end;
n := n div 10;
end;
writeln(newN);
readln;
end.