Попробуй это код.
a=[]a.append(1)a.append(1)for i in range(2,int(input())):--a.append((a[i-1]+a[i-2]))print(' '.join(list(map(str,a))))
сервера и устройства при здании обычно используют глобальную беспроводную сеть. зависимости от предпочтений предпринимаделя или от преследованиякаких-то премуществ в банки могут использоваться такие разновидности проводных сетей: ячистая,звезда иерархическая звезда, шина, кольцевая. Большинство предпринимателей среднего бизнеса и заведующие банковскими институтами используют иерархическую сеть. она удобна тем что устройства зависят только от комунатора имеет меньше риска повреждения а вотличии от простой звезды иерархическая удобна если здание имеет очень много серверов и устройств их расспределяют группами это удобно если самой предпренимательстве идут деления что удобно поискам и сортировки серверов
так что я считаю банк имеет проводную локальную сеть виде иерархической звезды
Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
var a,i,k,sum:integer;
begin
read(a);
for i:=1 to a do begin
read(k);
if(k mod 3 =0)and(k<150)then sum:=sum+k;
end;
write(sum);
end.