3 задача
N=30 символов => 32=2 в 5 степени >=30
один символ кодируется 5 битами, 3 символа 3*5=15 битов.
Сказано, что каждый шифр кодируется целым числом байтов
2байта=16 бит>= 15 бит
всего 100 шифров, => 2*100=200 байт
Недостающий фрагмент:
k:=0;
for i:=1 to N-1 do
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin
k:=k+1;
end;
writeln(k);
Разбор:
k:=0; // переменная для подсчет количества пар элементов.
for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в последнем цикле не было сбоев.
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // находим нужную нам пару элементов с помощью условия. Как только находим:
k:=k+1; // увеличиваем переменную, то есть прибавляем уже к имеющемуся количеству пар еще одну.
end; // Конец цикла
writeln(k); // выводим на экран количество пар
Канал -а, мышка, тенор-д, логика -а, сервер-в, килобайт -з, графика -е, алфавит -ж
static void Main()
{
double a, b;
a = float.Parse(Console.ReadLine());
b = float.Parse(Console.ReadLine());
Console.WriteLine("A: " + 0.5 * (a + b));
Console.WriteLine("G: " + Math.Sqrt(a * b));
Console.ReadKey(false);
}
Program pr;
uses crt;
Var a,b,c,d:real;
Begin
Writeln('vv 4 chisla');
readln(a);
readln(b);
readln(c);
readln(d);
if (a=999) or (b=999) or (c=999) or (d=999) then Writeln('a=',a,' b=',b,' c=',c,' d=',d)
else Writeln('sum=',c+d);
readln;
end.