В девятеричной.
Складываем у 28+61 младшие разряды. 8+1=9, а у нас стоит 0, как хвостик от 10. А 0 дает только сумма в системе, у которой основание равно сумме в системе десятичной, т.е. у нас это 9.
Например, 3+4=10 в семеричной (3+4=7), 2+6=10 в восьмеричной (2+6=8).
var a:integer;
t,z:real;
begin
a:=2;
while a<= 12 do
begin
t:=sin(4*a);
z:=3.5*sqr(t)-7*cos(t)+1.6;
writeln('a = ',a:2,' t = ',t:6:3,' z = ',z:6:3);
a:=a+1
end
end.
Существует формула для вычисления периметра ромба через диагонали:
, где d1,d2 - диагонали ромба.
Составляем программу:
function p(a,b: real): real;
begin
p:=4*sqrt((a/2)*(a/2)+(b/2)*(b/2));
end;
var a,b: real;
begin
readln(a,b);
write('периметр: ',p(a,b));
end.
Ответ:
а где у тебя переменная q объявлена?