<span>стройство для запоминания данных. В зависимости от характера использования различают внутреннюю или внешнюю память.</span>
1)
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n =');
Range(1,n).Select(i->i*i).Println;
end.
Пример:
n = 5
1 4 9 16 25
2)
<span>var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
while (i<n) do
begin
i:=i+1;
write(i*i,' ');
end;
end<span>.
3)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
repeat
i:=i+1;
write(i*i,' ');
until i=n;
end.
Пример:
<span>N = 5
1 4 9 16 25</span></span></span>
1. i= 8 бит , следовательно N=
2. после красного может загореться только желтый свет, следовательно N=1? тогда i =0 бит
3. Nп = 16 , следовательно iп = 4 бита, тогда объем их сообщения Iп = 4*90=360 бит
Nм = 32, следовательно iм= 5 бит, тогда объем их сообщения Iм=5*70 = 350 бит
Таким образом, объем сообщения Пульти на 10 бит больше объема сообщения Мульти
4. N=8 ,следовательно i = 3 бита, Ic= 384*3=1152 бита = 144 байта = 0.140625 Кб
Program pr;
uses crt;
Var i,j,n,rezult:integer;
Begin
Writeln('Введите n');
readln(n);
for i:=0 to n-1 do
Begin
for j:=1 to n do
Begin
rezult:=i*n+j;
Write(rezult:3,' ');
end;
Writeln;
end;
end.<span>
</span>