из банка на выплату зарплаты привезли а рублей хватит ли этой суммы если на предприятии n работников их средняя зарплата s рублей а в кассе еще имеется остаток k рублей (Решить в PascalABC)
из банка на выплату зарплаты привезли а рублей хватит ли этой суммы если на предприятии n работников их средняя зарплата s рублей а в кассе еще имеется остаток k рублей (Решить в PascalABC)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Payment;
var
a, n, s, k, totalPayment: integer;
begin
writeln('Enter the amount of money brought from the bank: ');
readln(a);
writeln('Enter the number of employees: ');
readln(n);
writeln('Enter the average salary of each employee: ');
readln(s);
writeln('Enter the remaining amount of money in the cash register: ');
readln(k);
totalPayment := n * s + k;
if totalPayment <= a then
writeln('There is enough money for the salaries.');
else
writeln('There is not enough money for the salaries.');
end.