1б
2б
3в
4б
5б
6б
7г
8в
9а
10а
задача
1. 2^i=N, N=32, i=5
2. 2^i=128, i=7
3. не видно значения((
4. 2^i=32, i=5, в слове комбинаторика 13 символов, 5*13=65бит информации
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.
Г-голубая куртка
Р-розовая куртка
Ф-фиолетовая куртка
З-золотая кепка
В-кепка в горошек
Рассмотрим все различные варианты:
ГЗ
РЗ
ФЗ
ГВ
РВ
ФВ
6 вариантов
Также эту задачу можно решить с помощью комбинаторики:
3*2=6
Ответ: 6
While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>