Дано натуральное число. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры). Типы переменных можно использовать: real и integer.
242
341
Ответы на вопрос:
var x, a, b, k: integer;
begin
write('Введите число: ');
readln(x);
write('Введите цифру: ');
readln(a);
b := 0;
k := 1;
while x > 0 do //цикл пока данное число больше 0
begin
if x mod 10 <> a then // сравниваем последнюю цифру данного числа с указанной цифрой
begin // если последняя цифра данного числа не равна указанной цифре
b := b+(x mod 10)*k; // получаем новое число из числа b и последней цифры данного числа умноженной на коэффициент
k := k*10; // увеличиваем коэффициент (единицы, десятки и т.д.)
end;
x := x div 10; // отбрасываем последнюю цифру из данного числа
end;
writeln('Получилось: ', b);
end.
Популярно: Информатика
-
Markos1408.01.2021 09:03
-
Vaprosic20.05.2023 06:09
-
FraGamer22816.02.2023 08:38
-
Италия1331.05.2022 10:48
-
nastiatsiupak02.12.2022 11:52
-
nickita123098vp0a1b824.06.2022 07:54
-
alexandrcrivuli05.10.2022 13:05
-
andrievskiyvitaliy26.06.2021 02:58
-
DOLAEV0726.02.2022 06:55
-
jyljokgorsheni108.09.2022 14:38