{Файл: prog4_13.pasЗадача: Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр. Автор: Дата: 23,09,2015}var n, d : integer; begin {Ввод N} writeln ('ведите число N'); readln (n); {Вычисление} while n <> 0 do begin d:= n mod 10; if d mod 2 = 0 then {Проверяем цифру на четность} writeln (d); {Выводим четную цифру} n:= n div 10 ; {Убираем из числа N провереную цифру} end;end.
begin {Ввод N} writeln ('ведите число N'); readln (n); {Вычисление} while n <> 0 do begin d:= n mod 10; if d mod 2 = 0 then {Проверяем цифру на четность} writeln (d); {Выводим четную цифру} n:= n div 10 ; {Убираем из числа N провереную цифру} end;end.