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

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

Question

Информатика

Марат

1 января, 12:24

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

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

+4

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

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