Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
<span>End.</span>
<span>Program 1;</span>
<span>Var i, dlina, shirina, visota, </span><em>N</em><span>, S, V : Integer;</span>
BEGIN
WriteLn(’Введите число залов‘);
ReadLn (N);
for<span> i:=1 </span>to<span> </span><em>N</em><span> </span>do<span> </span>begin
<em />WriteLn(’Введите длину,ширину и высоту зала‘);
<span>ReadLn (dlina, shirina, visota);</span>
<span>S:=dlina*shirina;</span>
<span>V:=S*visota; </span>
<span>WriteLn(‘</span>Площадь пола=<span>’,S,’ </span>Объем зала=<span>‘,V);</span>
end
END.
если это 8-9 класс, то должно быть так)))
16=2*8 (16 бит > 8 бит в 2 раза) 8бит =1 байту
Сообщение после перекодировки становится в два раза длиннее и равно =
= х+2 =2х
x=2 Кбайта в ASCII
4 Кбайта в Unicode
Количество символов в сообщении:
2 Кбайта : 1 байт =2 *2^10 байт : 1байт=2^11 символов =2048 символов в сообщении
Ctrl+Shift+Esc Win+D Win+E Ctrl+Alt+Delete и тд