Напишите программу для определения сдачи K руб. после покупки в магазине товара: перчаток стоимостью A руб., портфеля стоимостью B руб., галстука стоимостью C руб. Исходная сумма, выделенная на покупку D руб. В случае нехватки денег сдача получится отрицательной. (A, B, C, D - вводятся с клавиатуры).

заранее очень благодарна!

Question

Информатика

Дика

25 июля, 21:40

Напишите программу для определения сдачи K руб. после покупки в магазине товара: перчаток стоимостью A руб., портфеля стоимостью B руб., галстука стоимостью C руб. Исходная сумма, выделенная на покупку D руб. В случае нехватки денег сдача получится отрицательной. (A, B, C, D - вводятся с клавиатуры).

заранее очень благодарна!

+5

Ответы (2)

Знаешь ответ?

Ермий · Answer 1

var

a, b, c, d:real;

begin

writeln ('Введите стоимость перчаток');

readln (a);

writeln ('Введите стоимость портфель');

readln (b);

writeln ('Введите стоимость галстука');

readln (c);

writeln ('Введите сумму выделенную на покупку');

readln (d);

writeln ('Сдача составляет: ', d-a-b-c);

end.

Вадимыч · Answer 2

Var a, b, c, d : integer;

begin

writeln ('Цена перчаток: ');

readln (a);

writeln ('Цена портфеля: ');

readln (b);

writeln ('Цена галстука: ');

readln (c);

writeln ('Внесенная сумма: ');

readln (d);

writeln ('Сдача: ', d-a-b-c)

end.