Если покупка равна 500 и больше, то предоставляется скидка в 10%, если сумма покупки 1000 и больше, то скидка=20%

Как будет выглядеть задача в паскале?

Question

Информатика

Савина

1 ноября, 17:09

Если покупка равна 500 и больше, то предоставляется скидка в 10%, если сумма покупки 1000 и больше, то скидка=20%

Как будет выглядеть задача в паскале?

+1

Ответы (1)

Знаешь ответ?

Велислава · Answer 1

Var

x, y : integer;

begin

readln (x);

y: = x;

if x > = 500 then y : = (x * 90) / 100;

else if x > = 1000 then y: = (x*80) / 100;

else print ('Скидки нет');

print (y);

end.

Если покупка равна 500 и больше, то предоставляется скидка в 10%, если сумма покупки 1000 и больше, то скидка=20%Как будет выглядеть задача в паскале?

Если покупка равна 500 и больше, то предоставляется скидка в 10%, если сумма покупки 1000 и больше, то скидка=20%

Как будет выглядеть задача в паскале?