Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
А) (X > 0) or (Y > 0) or (Z > 0)
б) (X = 0) and (Y = 0) and (Z = 0)
в) (X > 100) and (Y > 100) and (Z <= 100) or (X > 100) and (Y <= 100) and (Z > 100) or (X <= 100) and (Y > 100) and (Z > 100)
Var s: string;
i: integer;
Begin
Write ('Введите слово: ');
Read (s);
For i:=1 To length(s) Do
Write (ord(s[i]), ' ');
End
Const N=5; M=6;
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do
For j:=1 to M do
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin
For j:=1 to M do
Write(A[i,j],' ');
Writeln;
end;
end;
begin
input(1,1);
output(1,1);
<span>end.</span>
Uses Crt;
var
a,b,c,x:double;
begin
ClrScr;
Write('Введите через пробел a и c:'); Read(a,c);
b:=a+c*c;
x:=Cos(b)/Sqrt(b+5);
Writeln('x=',x);
ReadKey
end.