У=124+8×<5
у=5-124>8×
у=-119>8×
Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.
Несложно заметить, что по столбцам значения увеличиваются с каждой строкой на 11. Также несложно заметить, то по строке с каждым столбцом значение уменьшается на 10.
Многоточием отмечены еще три столбца.
Для каждой ячейки верна формула a[I,j]=11(I-1)-10(j-1) i=1..7, j=1..7
Решение: Известно, что с помощью N бит можно закодировать 2N<span> различных чисел. Поскольку 2</span>7<span> < 235 < 2</span>8<span> и для каждого спортсмена число бит одинаково, то для записи каждого из 253 номеров необходимо 8 бит памяти. Поэтому сообщение о 190 номерах имеет объем 190 · 8 = 190 байт.
Ответ: 190 байт.</span>
Function Max(a,b:real):real;
begin
if a>b then Max:=a
else Max:=b
end;
var
a,b,c,d,e,m:real;
i:integer;
begin
Writeln('Введите 5 чисел: ');
Read(a,b,c,d,e);
m:=Max(a,b);
m:=Max(m,c);
m:=Max(m,d);
m:=Max(m,e);
Writeln('Максимум: ',m)
end.
<u>Пример</u>
Введите 5 чисел:
2.3 4 -5.16 0 0.087
Максимум: 4