Виктор178 В Виктор178 Регистрация 21 Янв 2013 Сообщения 73 Репутация 0 Спасибо 0 Монет 0 27 Ноя 2016 #1 Написать программу Р=1^2*2^2*...*n^2 Можете написать в Pascal, пожалуйста
pul P pul Регистрация 16 Июн 2013 Сообщения 73 Репутация 0 Спасибо 0 Монет 0 27 Ноя 2016 #2 Var i,n,p: integer; begin p:=1; readln; for I:=1 to n do p:=p*sqr(I); writeln(p) end. Позитивный голос 0
rteqry R rteqry Регистрация 31 Май 2013 Сообщения 68 Репутация 0 Спасибо 0 Монет 0 27 Ноя 2016 #3 for i:1 to n do begin result:=result*Sqr; end; Позитивный голос 0