Здесь очень не понятная блок схема если здесь просто два условия if то выполнится первое условие у просто программа выведет что y=100 если же это цикл while то эта программа уравнивает числа то есть она прекращает свою работу когда числа равны и тогда y=25
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
алфавит состоит из 64 символов, значит, один символ алфавита имеет вес 6 бит (т. к. 64=2^6). тогда каждая строка содержит 64×6=384 бита, каждая страница содержит 384×32=12288 битов, а 10 страниц содержат 12288×10=122880 битов.
122880(битов):8=15360 байт.
152 бит = 152 / 8 байт = 19 байт
1 байт = 8 бит
1 бит = 1/8 байт