Напишите пожалуйста программу ** паскале: условие Составить алгоритм вывода стоимости...

Question

Напишите пожалуйста программу на паскале:
условие
Составить алгоритм вывода стоимости товаров в чеке до первой суммы, превышающей 1000 рублей.

Answer 1

Program Z_1;
uses crt;
var a,b,c,s: integer; {a,b,c- товары(если нужна стоимость с копейками поменяй integer на real, добавь переменные, если нужны еще товары), s-чек}
begin
while d<=1000 do begin<br>writeln('Введите стоимость товаров'); readln(a,b,c); {задается стоимость товаров с клавиатуры}
d:=a+b+c;
end;
writeln(d);
end.