const
handsfree = false;
nmax = 31;
random_min = -20;
random_max = 30;
var
a: array[1..nmax] of real;
i, n, j: integer;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] = 15 then
k := k + 1;
writeln('quantity = ', k);
end.
1) 01101011
2) а)50 б)214
3.а-2, б-1, в-4, г-3
4. <
>
=
5. a)68,105 б) 0,000152 в) 241300
6. а) 0,6711011*10³ б) 0,73211*10⁻³
Ответ: 3
решение:
рассмотрим столбец б. Подставим и посчитаем числа.
получается соответственно: 12 (2*6); 6(5+1); 4(5-1). Из этого следует, что половина этой диаграммы будет равна 12 (т.к. самое большое число.) Из 12 вычетаем 6 и 4. 12-6-4=2
чтобы получилось 2, число 6 из таблицы нужно разделить на 3. Следовательно, ответ 3.
Должно быть закрашено 10 яблок
1 не надо
цвета
ЖКЗ
ЖКЗ
ЖК
ЖК
в клеточках рисуем кружки
<span>Количество кружочков должно быть равно количеству пар яблок.</span>
<span>var N, x, y, i: integer; </span><span>
begin
write(' N = ');
readln(N); </span>
<span>for i:=1 to N do </span>
<span>begin
writeln ('x='); </span>readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
<span>
end.</span>