для введёного числа q требуется вычислить значение функции T=q^2(q-1)+3q

1

Ответы и объяснения

2012-12-21T08:59:14+00:00

Program Program1;
Var
q,t:integer;
begin
write('Введите значение q: ');
readln(q);
t:=sqr(q)*(q-1)+3*q;
writeln('T=',t);
end.