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

Question

Информатика

Дормедонт

21 декабря, 08:02

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

+1

Ответы (1)

Знаете ответ на вопрос?

Хариесса · Answer 1

Var i, x, s:integer;

begin

writeln ('Вводите стоимость товаров по одному') ;

while i<3 do

begin

readln (x) ;

if x>1000 then

begin

s:=s+x;

i:=i+1;

end;

end;

writeln ('s=', s) ;

end.