Решите задачу в паскаль двумя способами: с использованием цикла с параметром и с предусловием.

Дано действительное число а, натуральное число n. Вычислить:

P = a (a+1) * ... * (a+n-1)

Question

Информатика

Флена

11 января, 19:57

Решите задачу в паскаль двумя способами: с использованием цикла с параметром и с предусловием.

Дано действительное число а, натуральное число n. Вычислить:

P = a (a+1) * ... * (a+n-1)

+4

Ответы (1)

Знаете ответ?

Рипа · Answer 1

Var a, n, p, i:integer;

begin

write ('Введите а и n: ') ;

readln (a, n) ;

p:=a;

for i:=1 to n-1 do

p:=p * (a+i) ;

writeln ('Ответ: ', p) ;

end.

var a, n, p, i:integer;

begin

write ('Введите а и n: ') ;

readln (a, n) ;

p:=a;

while i
begin

i:=i+1;

p:=p * (a+i) ;

end;

writeln ('Ответ: ', p) ;

end.