Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Покупка
Language: PASCAL
Code:
program HelloWorld;
var
     summa, itogo:real;
     procent: integer;
begin
     summa:=0;
     itogo:=0;
     procent:=0;
     writeln('Введите сумму покупки:');
     Readln(summa);
     if summa<100 then
          procent:=5
     else 
          if (summa>100)and(summa<500) then
                  procent:=10
          else 
               if (summa>500)and(summa<1000) then
               procent:=13
               else 
               procent:=15;
     itogo:=(summa*procent)/100;
     writeln('Ваша скидка - ', procent, '% составила ', itogo, 'рублей.' );
     itogo:=summa-itogo;
     writeln('Сумма вашей покупки с учетом скидки составила: ', itogo, ' рублей!');
     Readln;          
end.
     
          
          
Comments: