Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var i,s: integer; begin i: =2; s: =1; while i< =10 do begin s: =s*i; i: =i+2; end; write(s); end.
2^i = 32, i = 5 бит приходится на 1 символ
2^i = 64, i = 6 бит приходится на 1 символ
т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2
информационный объем второго текста в 1,2 больше, чем у первого текста.
var
d1,d2,d3,d4: string;
begin
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
end.
сделать сначала 10х10 а потом растягиванием
а вообще легче всего будет написать код в vba (вставлять через макрос)
for i = 1 to 1000
for j =1 to 1000
cells(i,j)=i*j
next j
next i
Популярные вопросы