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

[Beibarys]

Вот скрин. Пожалуйста помогите, мне на завтра надо

[Smitt&Wesson]

dounle x, res = 1;
do
{
  cin >> x;
  if(x != 0) res *= x; 
}while(x != 0);
cout << res;

Код не оптимизирован. Леиво было компиль включать.

[Beibarys]

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

dounle a = 1, b, res;
do
{
  cin >> x;
  if(x != 0) res *= x; 
}while(x != 0);

Код не оптимизирован. Леиво было компиль включать.

это же с++? вроде в паскале нету цикл do while

[Smitt&Wesson]

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

это же с++? вроде в паскале нету цикл do while

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

[Beibarys]

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

Есть. Называется - repiat ... end.
Паскалик изрядно подзабыл.

Вот сделал то что ты дал. нечего не происходит

[Smitt&Wesson]

Ёпрст. Под отладчиком включите. Может кто из паскалистов поможет, я здесь - пас.

[Jurijus123]

Вот цикл:

Var x: integer;
begin
x:=5;
while 10 <> x do x:=x+1;
end.

[ViktorR]

В паскале нет операций типа rez *= b;
Произведение следует искать,например, так:

...
rez := 1;
while <условие> do
begin
   ...
   rez := rez * a;
   ...
end;

или

repeat
...
   rez := rez * a;
...
until <учловие>;

Как-то так, ...

[Beibarys]

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

Вот цикл:

Var x: integer, eps: integer;
begin
eps:=5;
while 10 => eps do x:=x+1;
end.

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

что за стрелка? не понял чо то.

[Smitt&Wesson]

В паскале нет операций типа rez *= b;

Таки - да. Это С++.