Помогите решить цикл

[ViktorR]

Видимо автор имел ввиду это:

while 10 >= eps do x:=x+1;

Но вот о чем речь ... ?

Вероятно, вначале требуется запросить кол-во перемножаемых чисел.
Их должно быть не менее 5 и не более 10, т.е. в интервале [5,10].
Тогда, после ввода, следует проверить число, которое ввел пользователь.
Например:

repeat
   write('Введите кол-во перемножаемых чисел:'); readln(n);
until ((n < 5) OR (n > 10));

Как-то так, ...
PS: Не проверял ...

[Beibarys]

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

Видимо автор имел ввиду это:

while 10 >= eps do x:=x+1;

Но вот о чем речь ... ?

Вероятно, вначале требуется запросить кол-во перемножаемых чисел.
Их должно быть не менее 5 и не более 10, т.е. в интервале [5,10].
Тогда, после ввода, следует проверить число, которое ввел пользователь.
Например:

repeat
   write('Введите кол-во перемножаемых чисел:'); readln(n);
until ((n < 5) OR (n > 10));

Как-то так, ...
PS: Не проверял ...

ничего не происходит когда вводишь меньще 5 и больше 10

[ViktorR]

Ну тогда так:

repeat
   write('Введите кол-во перемножаемых чисел:'); readln(n);
until ((n >= 5) AND (n <= 10));

Как-то так, ...
PS: так понимаю, что с Паскалем вообще ни как ...

[Вадим Мошев]

Сообщение от Smitt&Wesson

Есть. Называется - repiat ... end.
Паскалик изрядно подзабыл.
И потом, Вы даже не удосужились проверить код на наличие ошибок, а их там было две.

Этот цикл называется repeat-until. Он не является аналогом сишного do-while.

repeat-until остановит свое выполнение тогда, когда условие в until начнём выполняться, а do-while будет выполняться, пока условие выполняется.

[Smitt&Wesson]

Сообщение от Вадим Мошев

Этот цикл называется repeat-until. Он не является аналогом сишного do-while.

repeat-until остановит свое выполнение тогда, когда условие в until начнём выполняться, а do-while будет выполняться, пока условие выполняется.

Вадим, мои познания в Паскуале примерно 20-и летней даности. Хорошо уже одно то, что я помню, что он вообще существует .

[Jurijus123]

Сообщение от Smitt&Wesson

Вадим, мои познания в Паскуале примерно 20-и летней даности. Хорошо уже одно то, что я помню, что он вообще существует .

А мои воссмелетнeй давности, но от нечего делать решил помочь.:

Var l: integer, n: integer, o: integer, d: integer, x: integer;
begin
repeat write('Введите кол-во перемножаемых чисел:'); readln(n);
 until ((n >= 5) AND (n <= 10));
while x <> n do 
write('Введите два числа:)
readl(o); readl(d);
l:=d*o;
write(l);
x:=x+1;
end.