Ответ:
9,8,50
Объяснение:
число четное или число меньше 50
Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do
Begin
s:=i mod 10+ i div 10;
if s=8 then a:=a*i;
end;
writeln (a);
<span>end.</span>
<span>Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
</span>4 и 3 вот и всё
Вот вычисления: 11*1024=11 264 байта *8 = 90112 бит
90112/11264 = 8 бит; мощность алфавита такова = 2^8=256 символов.
Ответ: в)
Весь программный код находится в прикреплённом файле, желательно протестировать его на заранее просчитаных значениях. Если возникнут какие-то вопросы по коду, напишите мне и я Вам с удовольствием помогу.