1.
program MinElement;
var
X: array[1..30] of Integer;
i, min: integer;
begin
randomize;
for i := 1 to 30 do
X[i] := random(100);
min := X[1];
for i := 1 to 30 do
if X[i] < min then
min := X[i];
writeln('Минимальное число: ', min);
write('Все элементы:');
for i := 1 to 30 do
write(' ', X[i]);
readln;
end.
2.
program Summa;
var
X: array[1..20] of Integer;
i, sum: integer;
begin
randomize;
for i := 1 to 20 do
X[i] := random(100);
sum := 0;
for i := 1 to 20 do
sum := sum + X[i];
writeln('Сумма всех чисел: ', sum);
write('Все элементы:');
for i := 1 to 20 do
write(' ', X[i]);
readln;
end.
Всё правильно и проверено лично!
var a:integer;
m:string;
begin
repeat
repeat
writeln('длина и площадь(1), сумма и произведение 5 чисел(2),найти площадь 2-х кругом с радиусом r1 и r2 и вывести большую s(3),2 числа(4),точка(5).');
readln(a);
until a<=5;
case a of
1:begin
var r,c,s:real;
writeln('введите R');
readln(r);
c:=2*3.14*r;//длина окружности
s:=3.14*sqr(r);//площадь круга
writeln('площадь=<',c,'>');
writeln('S=<',s,'>');
end;
2:begin
var z1,z2,z3,z4,z5,summ1,summ2:real;
writeln('введите 5 чисел через <enter>');
readln(z1,z2,z3,z4,z5);
summ1:=z1+z2+z3+z4+z5;
summ2:=z1*Z2*Z3*z4*z5;
writeln('сумма=<',summ1,'>');
writeln('произведение=<',summ2,'>');
end;
3:begin
var s,r:real;
writeln('введите R');
readln(r);
s:=3.14*sqr(r);
writeln('S=<',s,'>');
end;
4:begin
var i,u:real;
repeat
writeln('Введите 2 числа через <enter>');
readln(i);
readln(u);
if (i>u) then
begin
i:=i/3;
u:=u*3;
end
else if (u>i)then
begin
u:=u/3;
i:=i*3;
end
else until u<>i;
writeln(i);
writeln(u);
end;
5:begin
var p,l:real;
writeln('введите а,b через <enter>');
readln(p,l);
p:=3*p+4;
if (p=l) then writeln('принадлежат')
else writeln('не пренадлежат');
end;
end;
writeln('выключит y/n');
readln(m);
until m='y';
end.
Объяснение:
ответ: Объяснение:
151₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10010111₂
151₁₀ = 7*8⁰ + 2*8¹ + 2*8² = 227₈
151₁₀ = 7*16⁰ + 9*16¹ = 97₁₆
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
201₈ = 1*8⁰ + 0*8¹ + 2*8² = 129₁₀
DA₁₆ = A*16⁰ + D*16¹ = 218₁₀
10110₂ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ = 22₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
35₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100011₂
9₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 1001₂
10110₂ + 1101₂ = 100011₂
10110₂ - 1101₂ = 1001₂
4371₈ = 1*8⁰ + 7*8¹ + 3*8² + 4*8³ = 2297₁₀
1564₈ = 4*8⁰ + 6*8¹ + 5*8² + 1*8³ = 884₁₀
3181₁₀ = 5*8⁰ + 5*8¹ + 1*8² + 6*8³ = 6155₈
1413₁₀ = 5*8⁰ + 0*8¹ + 6*8² + 2*8³ = 2605₈
4371₈ + 1564₈ = 6155₈
4371₈ - 1564₈ = 2605₈
C7A₁₆ = A*16⁰ + 7*16¹ + C*16² = 3194₁₀
9BF₁₆ = F*16⁰ + B*16¹ + 9*16² = 2495₁₀
5689₁₀ = 9*16⁰ + 3*16¹ + 6*16² + 1*16³ = 1639₁₆
699₁₀ = 11*16⁰ + 11*16¹ + 2*16² = 2BB₁₆
C7A₁₆ + 9BF₁₆ = 1639₁₆
C7A₁₆ - 9BF₁₆ = 2BB₁₆