<span>1байт = 8бит.</span>
<span>Значит, 1024бит =128байт.</span>
<span> </span>
<span>Если текст начинается с 10 байта, то закончится на 128+10 = 138байт.</span>
Я не знаю!!!!!!!!! Не розуміюсь в інформатиці!
Мне кажется что второе но это кому-как.
Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Var
st: string;
i: byte;
sum: integer;
begin
st := 'БАЙТ';
for i:=1 to Length(st) do sum:=sum+ord(st[i]);
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.<span>
</span>