If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
1) "COPY('ИНФОРМАТИКА',3,6);"
2) "24 + 24 =48"
*в ответе двойные кавычки не учитываются
В этих задачах используются 2 формулы K=S*I, N=2^i
K-объем инф-ии(бит), S- кол-во сим-в, i -вес 1 символа, N- мощность алф.
1.75*5=345 бит
2.1000/8=125 байт
3.9,5 Кбайт=9,5*1024*8=<span>
77824бит, </span><span><span>77824/2560=30,4 бит вес 1 символа, N=2^31 символов в алф.
</span></span>4.40*50*7*5= 70000бит=8750байт
5.3750байт=3750*8=30000 бит, 30000/(5*25*60)=4бита, <span>N=2^4=16 символов в алфавите</span>
Program z;
var str:string;
begin
str:='В печке выпечен батон, а в петлицу вдет бутон';
while pos('е',str)>0 do
delete(str,pos('е',str),1);
writeln(str);
end.