Question

Написать программу вычисления стоимости покупки. Нужно указать вид товара, его цену и количество.
Вид экрана во время работы программы:
Вычисление стоимости покупки.
Введите исходные данные:
Какой товар вы покупаете? ->Тетрадь
По какой цене? -> 1.50
Сколько штук? -> 5
Ваш товар - Тетрадь. Стоимость покупки: 7.50
Сколько денег даете? -> 10
Ваша сдача: 2.5

Answer 1

Var money, cost,summa : real;
count : integer;
 tovar: string;
begin writeln('Введите исходные данные: ');
  writeln('Какой товар вы покупаете? ');
 readln(tovar);
  writeln('По какой цене? ');
 readln(cost);
  writeln('Сколько штук? ');
 readln(count);
  summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);  writeln('Сколько денег даете? ');
 readln(money);
  if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
 end.