1. Ответ: 43 mod 6 = 1
32 div 5 = 6
2. |x + y - x * x/(y * √x - y)|
3.abs(exp(ln(x)*2) + exp(ln(y) * 3)/ (2 * a))
4. b = 75
a = 45
При использовании 8-символьного алфавита для кодирования одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*3 = 60 бит.
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to (n-1) div 2 do
if a[2*i+1]>max then max:=a[2*i+1];
writeln('max = ',max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42
Program Program1;
var Name: string;
var Cost: real;
begin
write('Введите название товара: ');
readln(Name);
write('Введите цену товара: ');
readln(Cost);
writeln('Ваши расходы на покупки равны', Cost, ' руб.');
end.
=============================
program Program2;
var a, b, c, sum: integer;
var average: real;
begin
writeln('Введите три числа:');
readln(a, b, c);
average := (a + b + c) / 3;
writeln('Их среднее равно ', average);
sum := a + b + c;
writeln('Их сумма равна ', sum);
end.
900 байт это 900*8 = 7200 бит;7200 бит/28800 бит = 0,25 секундОтвет: 0,25 секунд.