n мощность алфавита
i инф объём
N=2i(в степени )
I инф объём одного сообщения
K колич символов в сообщении
I= K*i
K = I делить на i
Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5
После выполнения фрагмента прграммы x будет равен 67
Как я понимаю а)а=53 и б)b= 67 - значения переменных а и b соответственно
в) а=50 г) b=106
При а=53 и b=67 x=120
При а=50 и b=106 x= - 324
28,25 байт
0,0276 кбайт
0,0000269 мегабайт<span>
0,221 килобита</span>
<span>0,000216</span> мегабита
В остальное там 200 символов.
Var A,S1,S2,i:integer;
Begin
S1:=0;
S2:=0;
Write('Введите результаты первого пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S1:=S1+A;
End;
Write('Введите результаты второго пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S2:=S2+A;
End;
WriteLn('S1 = ',S1);
WriteLn('S2 = ',S2);
End.
Пример:
Введите результаты первого пятиборца: 1 2 3 4 5
Введите результаты второго пятиборца: 5 6 7 8 9
S1 = 15
S2 = 35