Question

25баллов! Составить программу, которая просит вводить отрицательные числа, считает сумму введённых чисел. При вводе положительного числа программа заканчивает работу с выдачей сообщения «Работа завершена». ПАСКАЛЬ

Answer 1

program Hello;

var a, i:integer;

begin

 while a <= 0 do

   begin

Writeln ('Введите отрицательное число: ');

   Readln (a);

   if a > 0 then begin break;

   end;

   i:= i + a;

   end;

   Writeln (i);

   end.

Answer 2

К сожалению, я не могу написать код на языке Pascal прямо здесь, но я могу предложить вам пример программы, которая выполняет задачу, описанную вами. Вы можете использовать этот пример в своей среде программирования на Pascal.

program SumNegativeNumbers;

var
  number, sum: real;

begin
  sum := 0;
  
  writeln('Введите отрицательные числа. Для завершения введите положительное число.');
  
  repeat
    write('Введите число: ');
    readln(number);
    
    if number < 0 then
      sum := sum + number
    else
      writeln('Работа завершена');
  until number >= 0;
  
  writeln('Сумма введенных отрицательных чисел: ', sum);
end.

В этой программе используется цикл `repeat...until`, который продолжает выполняться, пока вводится отрицательное число. Как только вводится положительное число, программа завершает свою работу и выводит сумму введенных отрицательных чисел.