Ответ:
program wr;
begin
WriteLn (1);
WriteLn (6);
WriteLn (2, ' ',2);
WriteLn (7, ' ', 7);
WriteLn (3, ' ', 3, ' ', 3);
WriteLn (8, ' ', 8, ' ', 8);
WriteLn (4, ' ', 4, ' ', 4, ' ', 4);
WriteLn (9, ' ', 9, ' ', 9, ' ', 9);
ReadLn;
end.
Jhfdjhegfjksfdsfdjkbgnbdkrngd/skfjns/rkjgnskdrbjhkdrhdtyjftukyuj
Ответ:
1.
<em>var s: string;
</em>
<em>
</em>
<em>begin
</em>
<em>write('Введите слово: ');
</em>
<em>readln(s);
</em>
<em>while (s<>'хватит') do
</em>
<em> begin
</em>
<em> writeln(s+'!');
</em>
<em> write('Введите слово: ');
</em>
<em> readln(s);
</em>
<em> end;
</em>
<em> writeln('До следующих встреч');
</em>
<em>end.
</em>
<em />
2.
<em>var i,n,max,min: integer;
</em>
<em>
</em>
<em>begin
</em>
<em>randomize();
</em>
<em>n:=random(201)-100;
</em>
<em>max:=n;
</em>
<em>min:=n;
</em>
<em>write(n,' ');
</em>
<em>For i:= 2 to 20 do
</em>
<em> begin
</em>
<em> n:=random(201)-100;
</em>
<em> write(n,' ');
</em>
<em> if (n>max) then max:=n;
</em>
<em> if (n<min) then min:=n;
</em>
<em> end;
</em>
<em>writeln('Наибольшее число: ',max);
</em>
<em>writeln('Наименьшее число: ',min);
</em>
<em>end.
</em>
Дано:
N=8
x=800*600
V-?
Решение
N=2^i
8=2^i
i=3
x=800*600=480000бит
V=x*i=480000*3=1440000 бит
Msk.psu.ivanov; msk.psu.petrov;
msk.pstu.sidorov; msk.pstu.popov;
msk.ipkro.s102; msk.ipkro.s108; msk.ipkro.s11