Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
Ответ:
пользователь
Объяснение:
ответ содержится в самом вопросе
Сесть
Взять ручку
Открыть тетрадь
Записать число и тему урока
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
16 =2^4 ----> 4 бита для кодировки одного символа в указанном алфавите.
код номер символа
0000 1
0001 2
0010 3
0011 4
0100 5
0101 6
0110 7
0111 8
1000 9
1001 10
1010 11
1011 12
1100 13
1101 14
1110 15
1111 16