Ответ: Объяснение:
8E₁₆ = E*16⁰ + 8*16¹ = 142₁₀
123₈ = 3*8⁰ + 2*8¹ + 1*8² = 83₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
13₄ = 3*4⁰ + 1*4¹ = 7₁₀
32₈ = 2*8⁰ + 3*8¹ = 26₁₀
1A₁₆ = A*16⁰ + 1*16¹ = 26₁₀
3B₁₆ = B*16⁰ + 3*16¹ = 59₁₀
Ввести число 1
|
Ввести число 2
|
Если число 1 больше числа 2
да нет
| |
чиcло1=число1*2 чиcло1=число1^2
чиcло2=число2^2 чиcло2=число2*2
|_____________________ |
|
Вывести число 1
|
Вывести число 2
1)
var
a, b:real;
begin
write('Катет A = ');
readln(a);
write('Катет B = ');
readln(b);
writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.
2)
var
a, b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a=b then writeln('Сумма a и b = ',a+b)
else writeln('Произведение a и b = ',a*b);
end.
3)
var
a, b, c, D, x1, x2: real;
begin
write('Коэффицент A = ');
readln(a);
write('Коэффицент B = ');
readln(b);
write('Коэффицент C = ');
readln(c);
D := sqr(b) - (4 * a * c);
if D > 0 then begin
x1 := (-(sqrt(D)) - b) / (2 * a);
x2 := (sqrt(D) - b) / (2 * a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else if D = 0 then begin
x1 := -b / 2 * a;
writeln('x = ', x1);
end;
if D < 0 then writeln('Корней нет.');
end.