Question

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

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.