Смотрю вы тут задачи с циклами решаите помогите мне тоже!, Цикл с предусловием Опции

[Зайка]

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

[Гость]

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

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

М

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

Сообщение отредактировано: мисс_граффити - 10.05.2007 23:01