Question

Ребят помогите по информатике по языку Pascal!!!

Answer 1

Ответ:

pascal

Объяснение:

var

 kolvo, stoim, summa: real;

begin

 WriteLn('Введите стоимоть товара:');  

 ReadLn(stoim);

 WriteLn('Введите количество товара:');  

 ReadLn(kolvo);

 summa := stoim * kolvo;

 if summa >= 10000 then

 begin

   WriteLn('Вам предоставляется скидка 10%');

   WriteLn('Общая сумма с учетом скидки: ', (summa - summa * 0.1):1:2, ' руб.');

 end

 else if summa >= 5000 then

 begin

   WriteLn('Вам предоставляется скидка 5%');

   WriteLn('Общая сумма с учетом скидки: ', (summa - summa * 0.05):1:2, ' руб.');

 end

 else

   WriteLn('Скидка не предоставляется! Общая сумма: ', summa:1:2, ' руб.');

end.