1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
В девятеричной что ли?
В ней есть цифры от 0 до 8.
Прибавление 1+8=10.
Тогда
1
558 +
417 =
1076
2А (16сс)= 10 1010 (2сс) =101 010 (2сс) =52 (8сс)
2А (16сс) =2*16 +10 =42(10сс)