freepascal.ru

Код: Выделить всё

program pr1;
var
a,b,i: integer;
begin
a:=5;
b:=8;
i:=0;
{write('Введите первый множитель: ');
readln(a);
write('Введите второй множитель: ');
readln(b);}
repeat
a:=a+b; {По идее цикл должен в любом случае выполниться один раз и после этого переменная а должна принять значение 13 и далее к ней снова должно прибавиться значение переменной b, то есть 8 и.т.д. }
i:=b-1; { Здесь происходит цикличное вычитание из значения переменной b = 8, единицы до тех пор пока значение i станет равным 0 после чего цикл должен остановиться но этого почему то не происходит}
until (i<=0);
writeln('Произведение чисел:', a);
readln
end.

Код: Выделить всё

program pr1;
var
a,b,i: integer;
begin
a:=5; //1-множитель
b:=8; //2-множитель, оно же количество повторов а+a+a..
i:=0; // сумма
repeat
i:=a+i; // суммируем
b:=b-1; // уменьшаем счетчик
until (b<=0); // если счетчик меньше или равно нулю выходим
writeln('Произведение чисел:', i);
readln;
end.

convergence писал(а):until (i<=0);

Код: Выделить всё

until (i<=0);


Код: Выделить всё

until (i>0);


Код: Выделить всё

i:=b-1;


Код: Выделить всё

i:=i-1; // либо декремент на 1, можно задать так: dec(i);