Все готовые лабы по паскалю (задание 2)

Посмотреть архив целиком

2.дано целое число n и действительное a. Вычислить:






  • Текст программы:

var

i,n: integer;

a,r: real;

begin

r:=1;

write ('n=');

readln (n);

write ('a=');

readln(a);

for i:=0 to n do

begin

r:=r*(a-i*n);

end;

writeln(r);

readln;

end.



  • Исходные данные: n=4 and a=1; результат: 3.465000000E+03










Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.