помогите please решить небольшую задачку.Нужно написать программу, находящую произведение всех чисел,вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

А сама не пробовала сделать ? Задача очень простая ... + воспользуйся поиском (по словам "цикл", "задача на цикл", "сумма чисел" и т.д.), подобное решалось много раз ...

Пробовала,но не получается! Я по Pascal если мягко сказать "чайник"! Кто может помогите!!

Вот разбирайся. Это с предусловием

uses crt;

var
  p, n: Integer;
begin
  clrscr;

  write('n = '); readln(n);

  P := 1;

  while (n <> 0) do begin
    P := P * n;
    write('n = '); readln(n);
  end;

  writeln('P = ', P); 

  readln;
end.

Да чего мне разбираться я всё равно ничего не понимаю!!! Я решить то пытаюсь но у меня ничего не получается

Klem4,вот смотри я пыталась решать,скажите,что у меня не правильно:

Var x,s:integer;
begin
Clrscr;
writeln('Введите число:');
readln(x);
repeat writeln('введите число:');
readln(x);untilx<>0;
s:=s*x;
writeln('Произведение всех чисел=',s);
readln;
end.

М

тегами не забывай пользоваться... мисс_граффити

1. произведение надо считать внутри цикла.
2. убери

writeln('Введите число:');
readln(x);

до цикла - этот кусочек должен быть только в цикле
3. в начале программы сделай s:=1
4. until x=0

Может быть ты мне,мисс_граффити,поможешь с моей задачей?

Помочь и сделать ЗА ТЕБЯ - разные вещи... Тебе не кажется?

Мисс_граффити,ты можешь мне полностью задачу написать? А то я уже замучалась

Юль, у нее ведь сказано, с предусловием По этому repeat .. until не катит ...

Народ, значит у неё задача с послеусловием, решите ей как с послеусловием может так и надо!

Гость, раздвоение личности?
о себе - и в третьем лице... оригинально ))

klem4, ты же ей с предусловием написал уже.
мне показалось, что она еще и с постусловием захотела сделать...