{Файл: 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
