Определить, хватит ли имеющейся суммы S на покупку N-го количества товара (при известной цене товара).

написать программу в паскале!

Question

Информатика

Костяня

23 февраля, 01:27

Определить, хватит ли имеющейся суммы S на покупку N-го количества товара (при известной цене товара).

написать программу в паскале!

+1

Ответы (1)

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

Камилла · Answer 1

Var n:integer; s, cena:real;

begin

write ('Введите цену товара: ') ; readln (cena) ;

write ('Введите количество товара : ') ; readln (n) ;

write ('Введите имеющуюся сумму: ') ; readln (s) ;

if s>=cena*n then writeln ('Денег хватит') else writeln ('Денег не хватит') ;

end.

Определить, хватит ли имеющейся суммы S на покупку N-го количества товара (при известной цене товара).написать программу в паскале!

Определить, хватит ли имеющейся суммы S на покупку N-го количества товара (при известной цене товара).

написать программу в паскале!