Ввести стоимость покупки в магазине, если стоимость меньше тысячи…

Ввести стоимость покупки в магазине, если стоимость меньше тысячи, то вывести «скидки нет», если стоимость от 1000 до 5000, то вывести «скидка 5%", еслистоимость свыше 5000, то вывести «скидка 10%". Вывести сумму со скидкой.

в избранное

atlet

18 августа 2022

Для Paskal ABCProgram magazin; var a: integer; s: integer; begins: =0; writeln ('Введите стоимость: '); readln (a); If a<1000 then begin writeln ('Скидок нет'); writeln ('Ваша сумма: ',a); end; If (a>=1000) and (a <= 5000) then begin s: =(a/100)*95; writeln ('Ваша скидка 5%'); writeln ('Ваша сумма: ',s); end; If a>5000 then begin s: =(a/100)*90; writeln ('Ваша скидка 10%'); writeln ('Ваша сумма: ',s); end; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?