Var a,b,c,d:Real;
T:Boolean;
Begin
randomize;
a:=random(50);
b:=random(50);
c:=random(50);
d:=random(50);
writeln('A=',a,' ','B=',b,' ' 'C=',c,' ','D=',d);
T:=(a<b)and(a<c)and(a<c)and(d>a)and(d>b)and(d>c);
writeln(T);
End.
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
1 2 3 4 5 6 7 8 9 0
Специальные знаки (через пробелы):
~ ! @ # $ % ^ & * ( ) – + _ = [ ] ; : ‘ “ , . / \ < > ? |
4. <span>10 1101 0011(2)=1*2^9+0*2^8+1*2^7+1*2^6+0*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=
512+128+64+16+2+1=723
</span><span>1323(8)= 1*8^3+3*8^2+2*8^1+3*8^0=512+192+16+3=723
</span><span>2D3(16)= 2*16^2+16*16^1+3*16^0=512+208+3=723
</span>
5.+<span>10 0011 1110(2)
</span><span> 1011 1111(2)=
</span> 111111 1111
Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.