Составить схему алгоритма (Блок-схема) по данной программе : var n, a, ch, sum, raz: integer;

begin
sum:=0;
raz:=1;
write ('Введите целое натуральное число '); readln (n);
write ('Какую цифру надо удалить? '); readln (ch);
while n>0 do
begin
a := n mod 10;
if ch <> a
then begin sum := sum + a * raz; raz := raz*10; n := n div 10 end
else n := n div 10;
end;
write ('Ваше число ', sum)
end.

Дополнительно к программе
Из натурального числа удалить заданную цифру. Число и цифру вводить с клавиатуры. Например, задано число 4792. Требуется удалить из него цифру 7. Получится число 492.

parahonya90    1   17.10.2021 17:11    0