произведение

[ilnar51]

Вычислить произведение чисел:P=N*(N+1)*(N+2)*(N+3)*.....*( N+R);(N<R)


с использованием цикла "while"

[Stilet]

while n<r do begin
 p:=p*n;n:=n+1;
end;

Годится?

[ilnar51]

Сообщение от Stilet

while n<r do begin
 p:=p*n;n:=n+1;
end;

Годится?

а можешь полностью написать?
program proizvedenie;
Var P,K,N:integer;
begin
writeln('Vvedite K i N');
readln(K,N);

дальше чтО?

[Stilet]

То что я написал )
Пробуй же.

[ilnar51]

Сообщение от Stilet

То что я написал )
Пробуй же.

А если написать P:=1; K:=0;
ошибка будет?
я пробовал,у меня P=0 получается=(

[New man]

program proizvedenie;
Var P,K,N:ineteger;
begin
writeln('Vvedite K i N');
readln(K,N);
p:=1;
while n<K do begin
 p:=p*n;n:=n+1;
end;
writeln(p);
end.

Ты вообще в программировании че нидь понимаешь?!
обязательно надо p:=1

[ilnar51]

[QUOTE=New man;757604]

program proizvedenie;
Var P,K,N:ineteger;
begin
writeln('Vvedite K i N');
readln(K,N);
p:=1;
while n<K do begin
 p:=p*n;n:=n+1;
end;
writeln(p);
end.

я ввел цифры 4 и 2,вышло Р=6
а если ввожу 2 и 4 выходит Р=1
правильно работает программа?=)
значит правильно работает?=)

[New man]

readln(K,N)
замени на
readln(N,K)