Задание:
Даны действительное число a, натуральное число n. Вычислить: P=a (a-n) (a-2n)*… *(a-n^2). Решить на языке Turbo Pascal. Помогитеплииз
Решение:
Program P1; Uses Crt; {можно и не использовать, без оной clrscr — видаст ошибку, что нет такого} Var a,p: Real; n,i: Integer; Begin ClrScr; {просто чтобы очистить экран можно и не использовать} Write ('Type a: '); Read (a); Write ('Type n: '); Read (n); for i: =1 to n do begin p: =p+(a*(a-i*n)*(a-n*n); {не совсем понятны три точки в условии} end; Writeln ('p=', p: 3:3); {количество знаков после запятой и общее} Readkey; {или можно использовать Readln; }End.
Знаете другой ответ?