Текила,что тут не понятного?
1) 11011-110= 110
2) 10001-1110= 10
3) 100010-100= 11010
4) 101011- 1111= 11100
5) 1001*101=101101
6) 1001*11=11011
7) 1001+11=1100
8) 110+110=1100
9) 1100111+10011=1111010
10) 111000-11101=11011
11) 10011-10010=1
12) 110101*11101=10011011001
13) 1110101*11101=11010100001
14) 11100010-1110001=1110001
Var y,x,l:real;
<span>begin </span>
<span>writeln('Введите значение l и x соотвественно'); </span>
<span>read(l,x); </span>
<span>if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль') </span>
<span>else begin </span>
<span>y:=sqr(l/x); </span>
<span>writeln(y); </span>
<span>end; </span>
<span>end.</span>
Машина.bmp правильно составлено
Программа без массива:
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
begin
a:=random(55)+15;
write(a,' ');
if a>max then max:=a;
if a<min then min:=a;
end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
Пример:
21 16 40 57 41 63 48 50 54 45
max-min = 63-16 = 47
Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(55)+15;
write(a[i],' ');
end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
