Задание:
Для введеного числа q требуется вычислить значение функции T=q^2 (q-1)+3q
Решение:
Program Program1; Varq,t: integer; beginwrite ('Введите значение q: '); readln (q); t: =sqr (q)*(q-1)+3*q; writeln ('T=',t); end.
Знаете другой ответ?
Для введеного числа q требуется вычислить значение функции T=q^2 (q-1)+3q
Program Program1; Varq,t: integer; beginwrite ('Введите значение q: '); readln (q); t: =sqr (q)*(q-1)+3*q; writeln ('T=',t); end.
Знаете другой ответ?