Question

с клавиатуры вводятся числа до первого отрицатеьного. Нарисуйте блок схему и напишите программу для нахождения суммы этих чисел. Pascal
Домашняя работа по теме (Циклы)
Помогите пожалуйста, дам самый большой балл

Answer 1

var d, sum:integer;
begin 
  while d>-1 do 
  begin   
    sum:=sum+d;   
    readln(d); 
  end; 
  writeln(sum);
end.