Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (x<y) and (x<z) then p:=x;
Writeln(p);
End;
If (z<y) and (z<x) then p:=z;
Writeln(p);
End;
If (y<x) and (y<z) then p:=x;
Writeln(p);
End.
Вот код для qbasic'a SCREEN 12 cls LINE (200, 200)-(350, 400), , B LINE (200, 200)-(275, 100) LINE (275, 100)-(350, 200) CIRCLE (275, 160), 20 PAINT (275, 160) LINE (250, 250)-(300, 300), , B LINE (275, 250)-(275, 300) LINE (250, 270)-(300, 270) LINE (350, 400)-(355, 210), , B LINE (350, 210)-(370, 200), , B LINE (350, 400)-(400, 400) LINE -(400, 380) LINE -(380, 380) LINE -(380, 360) LINE -(355, 360) LINE (325, 165)-(325, 100) LINE -(310, 100) LINE -(310, 145)
3) таблица 1 строка 2^5 потом 5 и в конце 550
вторая строка таблицы 2^9 потом 9 и в конце 630
4) вес 1 буквы в 128символьном алфавите будет равна 7 битам (тк 2^7=128) потом перемножаем на 20 на 50 и на 4 что бы узнать вес всего текста 7*4*20*50 = 28000 бит . что бы перевести биты в байты нужно поделить на 8 28000 бит : 8 = 3500 байт
1 и 2 устный так что ничем помочь не могу(
Папирус- это исторический документ.
Использовался еще в III тысячелетии до н. э.
Var
s1,s2:string;
i,k:integer;
begin
readln(s1);
k:=length(s1)-1;
s2:='';
for i:=1 to k do
begin
s2:=s2+s1[i];
case s1[i] of
'.',',','!','?':
if s1[i+1]<>' ' then s2:=s2+' ';
end;
end;
s2:=s2+s1[k+1];
writeln(s2)
<span>end.</span>