Даны действительное число a, натуральное число…

Question

Даны действительное число a, натуральное число n. Вычислить: P=a (a-n) (a-2n)… (a-n^2). Решить на языке Turbo Pascal. Помогитеплииз

Answer 1

91

tatyana48

12 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль:

Даны действительное число a, натуральное число…

Даны действительное число a, натуральное число n. Вычислить: P=a (a-n) (a-2n)*… *(a-n^2). Решить на языке Turbo Pascal. Помогитеплииз

Даны действительное число a, натуральное число n. Вычислить: P=a (a-n) (a-2n)… (a-n^2). Решить на языке Turbo Pascal. Помогитеплииз