Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
программа на языке паскаль
program pr;
s: string;
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
n = 64 - 32 = 32
i = log₂ 32 = 5 бит
количество вопросов, которые нужно задать равно 5
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
Популярные вопросы