Question

в паскале сделать программу, в которую поступают два числа. ко второму с помощью цикла прибавляется первое число делённое на два до того момента пока первое число больше нуля.

Answer 1

Задание не корректное.

Если первое число положительное, то произойдёт зацикливание (а не меняется по условию), а если отрицательное, то значение второго числа не меняется.

Вот программа по этой задачи, но в цикле значение первого числа будет уменьшаться на 1.

var a,b:real;

begin

 writeln('Введите значение а ');

 readln(a);

  writeln('Введите значение b ');

 readln(b);

 while (a>0) do

   begin

   b:=b+a*2;

   a:=a-1;

     end;

 writeln('b = ', b);

end.