Цитата:
Сообщение от shutti
Не решаеться вообще  |
Извините, но задача настолько простая, что даже не интересно. И чему тут "не решаться"? Правда, я не очень понимаю, зачем нужна подпрограмма и куда ее воткнуть, но если по-простому, то:
VAR
SUM, Quantity:REAL;
Number:WORD;
BEGIN
Number:=0;
SUM:=0;
REPEAT
Write('Next quantity ');
Readln(Quantity);
IF Quantity<0 THEN
BEGIN
SUM:=SUM+Quantity;
Number:=Number+1;
Writeln(Number);
Writeln('Sum = ',SUM);
END;
UNTIL Quantity>0;
Writeln('Data input is finished');
Readln;
END.
Всё!!!