Известны данные о стоимости каждого товара из группы. Найти общую стоимость трех товаров,...

Question

Известны данные о стоимости каждого товара из группы. Найти общую стоимость трех товаров, которые стоят дороже 1000рублей (количество таких товаров неизвестно)

Comments

Трех первых товаров дороже 1000?

---

да

Answer 1

Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do<br>  begin
  readln(x);
  if x>1000 then
    begin
    s:=s+x;
    i:=i+1;
    end;
  end;
writeln('s=',s);
end.