Var A,b,s,p:real;
begin
read (a b);
writeln ('s=', a*b);
writeln ('p=', 2*a+2*b);
end.
на примере прямоугольника
Для начала запишем над каждой цифрой нумерацию с права на лево начиная с нуля
6¹5⁰₈=6*8¹+5*8⁰=48+5(любое число в нулевой степени равно 1)=53₁₀
Var y,x,a:real;begin
readln(a);
y:=a+a+a+;
x:=a*a*a*a;
writeln(x,'}{', y);
end.
Язык программирования: Паскаль
var
a, b, c, min : integer;
begin
readln (a);
readln (b);
readln (c);
min := a;
if b < min then
min := b;
if c < min then
min := c;
writeln (min);
end.