Question

Найти сумму вво с клавиатуры положительных чисел. выход при о

Answer 1

var sum,x:integer;

begin

x:=1;

while x<>0 do begin readln(x); sum:=sum+x; end;

writeln(sum);

end.

Answer 2

var

  a, s: real;

 

begin

  s:= 0;

  repeat

    writeln('Введите положительное число');

    readln(a);  //Вводим положительное число

    if a < 0 then  {Если введено не положительное число, печатаем сообщение об этом и начинаем цикл сначала}

    begin

      writeln('Введено не положительное число. Введите число еще раз.');

      continue;

    end;

    s:= s + a;

  until a = 0;

  writeln('Сумма введенных чисел равна:  ', s);  //Выводим сумму

end.