Как это ( в паскале.) в магазине трилайн периодически бывают скидки. составить программу, которая запрашивает цену покупаемого товара и его количество, информацию о скидке (в процентах, если скидки нет, то ввести 0% на печать должна выводиться сумма к оплате.

поверено на паскале авс

 

program psm; uses crt; var  cena, summa: real;   kwo,skid : integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln;   writeln;   writeln('++');   writeln('|                        вас в магазине трилайн!                           |');   writeln('++');   writeln('|            введите, , необходимую информацию ниже:             |');   writeln('++');   write('            цена товара:   '); readln(cena);   write('            количество единиц товара:   '); readln(kwo);   write('            размер скидки в % (0 - если скидки нет) '); readln(skid);   writeln('++');   writeln('|                                                                                                                            |');   writeln('|                                сумма к оплате: ',cena*kwo*(1-skid/100): 10: 2,'                                      |');   writeln('|                                                                                                                            |');   writeln('++'); end.

Program z; var a: array [1..15] of integer; i,k,s,j,n: integer; begin writeln('начальная последовательность'); for i: =1 to 15 do begin a[i]: =random(1,100); write(a[i], ' '); end; for j: =1 to 14 do for i: =1 to 14 do if a[i]> a[i+1] then begin k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k end; writeln; writeln('отсортированная последовательность'); for i: =1 to 15 do write(a[i], ' '); writeln; write('введите n (а[1]< n< a[15]) '); read(n); for i: =1 to 15 do begin if (a[i]=n) or (a[1]> n) or (a[15]< n) then begin while (a[i]=n) or (a[1]> n) or (a[15]< n) do begin writeln('ошибака! число n не длжно совпадать с элементами последвовательности и а[1]< n< a[15]'); write('введите n (а[1]< n< a[15]) '); read(n); end; end; if a[i]< n then s: =a[i]+s; end; write('cумму последовательности меньших n = ',s); end.

Var          k: longint; begin          k : = 50;         while (k < 1000) do begin            k : = k + 50; write(k, ' ');     end; end. var          sum, k: longint; begin          k : = 101; sum : = 0;           while (k < 150) do begin                sum : = sum + k;               k : = k + 2;           end;       writeln(sum); end.