Не могу понять, что не так. Написала программу, но в конце не пишет, сколько в итоге арбузов куплено и за сколько. Помогите, прошу (((!!! Вот сама программа:
var Ves, Sum, K:integer;
Begin
Randomize;
Sum:=0 ; K:=0;
Repeat
Ves:=Random(7)+2;
If Sum+Ves*15<=1000 then
begin
Writeln('Арбуз весом ', Ves, 'кг, стоимость- ', Ves*15, 'рублей');
K:=K+1;
Sum:=Sum+Ves*15;
End;
until 1<0;
Writeln('Куплено ', K, 'арбузов на сумму ', Sum, 'рублей');
End.
var Ves, Sum, K:integer;
Begin
Randomize;
Sum:=0 ; K:=0;
Repeat
Ves:=Random(7)+2;
If Sum+Ves*15<=1000 then
begin
Writeln('Арбуз весом ', Ves, 'кг, стоимость- ', Ves*15, 'рублей');
K:=K+1;
Sum:=Sum+Ves*15;
End;
until 1<0;
Writeln('Куплено ', K, 'арбузов на сумму ', Sum, 'рублей');
End.
More Questions From This User See All