Var a: array[1..7, 1..3] of integer; s, i, j: integer;begin for i:=1 to 7 do for j:=1 to 3 do readln (a[i, j]); for i:=1 to 7 do begin s:=0; for j:=1 to 3 do s:=s+a[i,j]; writeln('Средняя температура для дня №', i, ' равна ', s/3); end;end.
765=<span>1011111101 (делишь число на 2 , если остается остаток пишешь единичку если нет ноль</span>
1-й проход алгоритма:
ФТОР - длина 4 (чётное), значит вставляем в середину А - получаем ФТАОР. Теперь замена букв на следующие по алфавиту - ХУБПС (это результат первого прохода).
2-й проход алгоритма:
ХУБПС - длина 5 (нечётное), значит в начало добавляем Б - получаем БХУБПС. Теперь замена букв на следующие по алфавиту - ВЦФВРТ.
Ответ: ВЦФВРТ
Var a,n,x,m,max: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
Длиной не менее 2 и не более 4 символов можно закодировать последовательности из 2-х, 3-х и 4-х символов.
Определим количество каждого и сложим.
Каждый сигнал принимает одно из трёх значений.
2 символа - 3^2 = 9
3 символа - 3^3 = 27
4 символа - 3^4 = 81
9+27+81 = 117