I, j: integer;
a: array [1..100, 1..100] of integer;
begin
readln(a[1][1], a[1][2]);
for i := 3 to 30 do
a[1][i] := a[1][i - 1] + a[1][i -2];
for i := 2 to 30 do
for j := 1 to 30 do
begin
if (j > 2) then
a[i][j] := a[i][j - 1] + a[i][j - 2]
else
if (j = 2) then
a[i][j] := a[i][1] + a[i - 1][30]
else
a[i][j] := a[i - 1][30] + a[i - 1][29];
end;
for i := 1 to 30 do
begin
for j := 1 to 30 do
write(a[i][j],' ')
writeln;
end;
end.
Вот, сорри если что пишу без компилятора
Потому что молделирование требует меньше затрат, учитываются только существенные характеристики (свойства) моделируемого объекта, интересующие исследователя. Например: при крэш-тесте автомобиля целосообразно использовать манекен, чем настоящего человека.
По формуле Шеннона:
2^i=64, i=6 бит - весит каждый символ. На каждом носителе содержится 6*512=3072 бита, А во всём своде законов 3072*1024 бита= 3072 Кбита.
Элнктроная она приходит в види смс но компьютер либо телефон и.т д,а обычная почта приносят на дом письмо.
program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>