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