Дано целое число N (>0) Найдите К = (N+1) ^2 + (N+2) ^2 + (N+N) ^2

Question

Информатика

Санюта

13 ноября, 19:26

Дано целое число N (>0) Найдите К = (N+1) ^2 + (N+2) ^2 + (N+N) ^2

+2

Ответы (1)

Знаете ответ на вопрос?

Сергеич · Answer 1

Var N, K: integer;

begin

write ('N = ') ; readln (N) ;

if N > 0 then

begin

K : = sqr (N + 1) + sqr (N + 2) + sqr (N + N) ;

writeln ('K = ', K) ;

end

else

write ('N меньше или равно 0') ;

end.