Написать программу вычисления стоимости покупки с учетом скидки 3% сумма больше 200 рублей

286

393

Посмотреть ответы 3

Ответы на вопрос:

hyyyser

Информатика

4,8(47 оценок)

Наверное, имелось ввиду, что скидка будет, если сумма более 200 рублей? var x: integer; begin write('введите цену: '); read(x); if(x > 200) then writeln('скидка 3%! стоимость покупки: ', (x * 0.97)) else writeln('скидки нет! стоимость покупки: ', x); end.

технолигия

Информатика

4,8(31 оценок)

Для pascalabc: program project1; var i: real; begin write('введите стоимость товара > '); readln(i); writeln('с учётом скидки товар будет стоить ', i*0,03, ' рублей'); end. для delphi: var i: real; begin write('vvedite stoimost tovara > '); readln(i); writeln('s ychetom skidki tovar bydet stoit ', i*0,03, ' ryblei'); readln; end. написал два варианта, так как синтаксис и некоторые моменты немного отличаются с использованием delphi и pascalabc.