Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
для начала переведем 100мбит в байты.
100мбитс=100*1024*1024/8=13107200 байт
13107200 байт*1с = 13107200 байт.
ответ: 13107200 байт.
Популярные вопросы