Готово :)
..............................
Var
a, b: integer;
procedure Max(a, b: integer);
begin
if(a > b) then write(a)
else write(b);
end;
begin
read(a, b);
Max(a, b);
end.
В3.
Каждый из символов может принимать одно из 2-х значений "+" или "-". Поскольку всех символов 5, то общее количество значений равно 2^5=32
Ответ: 32
В4.
3750 Кбайт = 3750*1024 байт = 3750*1024*8 бит = 30720000 бит
2 мин = 120 сек
30720000 бит : 120 сек = 256000 бит/с
Ответ: 256000 бит/с
В6.
а=2; b=6
Сумма равна 2+6=8
Ответ: 8
Max:=1; min:=1;
for k:=2 to n do begin
if a[k]>a[max] then max:=k;
if a[k] < a[min] then min:=k
end;
writeln ('max=', a[max]);
writeln ('min=', a[min]);
if max < min then writeln ('max раньше')
else writeln ('min раньше')
Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение: