6.
a=10
b=30
a = (30 mod 7) div 2 = 2 div 2 = 1
Ответ: a = 1
7.
в)
8.
y = 5+5*1+5*2+5*3 = 5+5+10+15 = 35
Ответ: 35
9.
143 = 128+8+4+2+1 = 10001111(2)
В программировании операцию "задания" конкретных значений объектам программы называют присваиванием.
В Языке Паскаль присваивание начальных значений элементам массива можно производить либо непосредственно, либо в цикле.
Непосредственное присваивание используется, если количество таких присваиваний невелико. В этом случае записываются операторы присваивания для каждого элемента массива, которому нужно присвоить значение, например: a[6]:=5; b[4,12]:=11; и т.д.
Присваивание в цикле используется, когда количество элеметнов массива велико, а значение для конкретного элемента можно или задать общим алгоритмом, или ввести извне (с клавиатуры или из файла). В этом случае цикл организуется так, чтобы параметры цикла перебрали все необходимые индексы элементов массива.
Примеры:
for i:=1 to 20 do a[i]:=3*i^2-1;
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
Еще пример - заполнение случайными числами в диапазоне (-20..20)
Randomize;
for i:=1 to m do x[i]:=Random(40)-20;
1. Антивирус
2. Интернет
3. Архивация
4. Клавиатура
5. Процессор
По вертикали :ВИРУС
2)
000 111 10
C O H
1) В диаграмме площади секторов относятся как 1:2:2:3
В2=С1-D1=3-1=2
C2=D1-1=2-1=1
D2=A1-B1=4-2=2
A1 должно быть =3 - = А1-1=4-1=3
ответ : 2) +А1-1
Для радиуса описанной окружности имеется соотношение
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>var
a,b,c,R,dA,dB,dC:real;
begin
Writeln('Введите углы A,B в градусах и радиус R');
Read(dA,dB,R);
dC:=180-dA-dB;
a:=2*R*sin(dA*Pi/180);
b:=2*R*sin(dB*Pi/180);
c:=2*R*sin(dC*Pi/180);
Writeln('Угол C: ',dC:0:2);
Writeln('a=',a:0:5);
Writeln('b=',b:0:5);
Writeln('c=',c:0:5)
end.
<u>Пример</u>Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078