Натали
Натали

Дано натуральное число. Из данного натурального числа удалить все цифры а. (а вводится с клавиатуры) в паскале пожалуйста

Светлана Быковская
Светлана Быковская

m := 1; r := 0; while (n > 0) do begin if (n div 10 <> a) then r := r + m * (n div 10); m := m * 10; end; n := n mod 10; end;

Похожие вопросы
дано натуральное число n вычислить сколько цифр в числе n и чему равна сумма его цифр паскаль
вводится натуральное число. найти количество цифр в нем. Паскаль. Помогите, пожалуйста, решить задачу!!!)))
Удалить из последовательности числа, начинающиеся цифрой 2. Паскаль
Дано натуральное число определить количество цифр "а" в этом числе. "а" вводится с клавиатуры.
Дано натуральное число. 1) приписать к нему такое же2)Найти количество различных цифр данного натурального числа. паскаль
Задача в паскале. Дано натуральное число. Сумму цифр числа, больших а (значение а вводится с клавиатуры, 0
Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз. А задается.
нужно написать программу в паскале ( данные вводить с клавиатуры)
задано натуральное число n. Найти сумму цифр данного числа с помощью функции !!!(паскаль)
помогите с паскалем. Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево;