<em>ПАСКАЛЬ</em>
var
x,y,z:real;
function ST(a,b,h:real):real;
begin
ST:=(a+b)*h/2
end;
begin
Write('Введите длины оснований и высоту трапеции: ');
Read(x,y,z);
Writeln('Площадь трапеции равна ',ST(x,y,z):0:5)
end.
<u>Пример</u>
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000
Являлись перфокарты и перфоленты
Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
Так как мы переводим из какой-то системы счисления в десятичную, то перевод будет выглядеть следующим образом:
<h2>Пример 1</h2>
2 · x¹ + 1 · x⁰ = 47₁₀
2x + 1 = 47
2x = 46
x = 23 - это и есть основание системы счисления.
<h2>Пример 2</h2>
1 · x³ + 3 · x² + 3 · x¹ + 1 · x⁰ = 6₁₀
x³ + 3x² + 3x + 1 = 6
x³ + 3x² + 3x - 5 = 0
Ответ данного уравнения третьей степени будет содержать корень, поэтому системы счисления как таковой нет.