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

Question

Информатика

Секлетея

28 августа, 15:27

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

+5

Ответы (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.