Предмет: Информатика,
автор: golovkinaksunia
Определить, хватит ли имеющейся суммы S на покупку N-го количества товара (при известной цене товара).
написать программу в паскале!
Ответы
Автор ответа:
0
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.
begin
write('Введите цену товара: ');readln(cena);
write('Введите количество товара : ');readln(n);
write('Введите имеющуюся сумму: ');readln(s);
if s>=cena*n then writeln('Денег хватит') else writeln('Денег не хватит');
end.
Похожие вопросы
Предмет: Українська мова,
автор: sergeumonro007
Предмет: Алгебра,
автор: Timoxa2288
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: Fatimazp