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

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

Question

Информатика

Лина

1 января, 17:27

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

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

+2

Ответы (2)

Знаете ответ на вопрос?

Текуса · Answer 1

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.

Тамара · Answer 2

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.