<u>1)</u>program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
<u>-----------------------------------</u>
<u>2)</u>program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.
1)
var x,y,S:integer;
begin
x:=340;
y:=5;
x:=x div y;
y:=x mod y;
x:=x-5;
y:=y+3;
S:=x+y;
writeln(S);
end.
Ответ получился 69
2) var a, b:real;
begin
a:=3;
b:=-1;
b:=9+a*b;
a:=(b*b)/(b/a);
writeln(a);
end.
Ответ получился 18
Многоуровневый список, имеющего четыре уровня вложенности компьютера.
1. Процессор
2. Память
2.1. Оперативная память
2.2. Долговременная память
2.2.1. Жесткий магнитный диск
2.2.2. Дискета
2.2.3. Флэш-память
2.2.4. Оптические диски
2.2.4.1. CD
2.2.4.2. DVD
3. Устройства ввода
3.1. Клавиатура
3.2. Мышь
3.3. Сканер
3.4. Графический планшет
3.5.Цифровая камера
3.6. Микрофон
3.7. Джойстик
4. Устройства вывода
4.1. Монитор
4.1.1. Жидкокристаллический монитор
4.1.2. Монитор на электронно-лучевой трубке
4.2. Принтер
4.2.1. Матричный принтер
4.2.2. Струйный принтер
4.2.3. Лазерный принтер
1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы