Question

из банка на выплату зарплаты привезли а рублей хватит ли этой суммы если на предприятии n работников их средняя зарплата s рублей а в кассе еще имеется остаток k рублей (Решить в PascalABC)

Answer 1

program raf105;

var a,n,s,k:integer;

begin

write('Сколько рублей привезли: ');

readln(a);

write('Сколько на предприятии работников: ');

readln(n);

write('Средняя зарплата: ');

readln(s);

write('Остаток в кассе: ');

readln(k);

writeln;

if s <= ((a+k) div n)

 then writeln('Этой суммы хватит')

 else writeln('Этой суммы не хватит');

end.

Answer 2

Для решения этой задачи в PascalABC (или любом другом языке программирования) можно использовать простой алгоритм. Вам потребуется выполнить следующие шаги:

1. Ввести значения a, n, s и k с клавиатуры.
2. Вычислить общую сумму зарплат, которую нужно выплатить: total_salary = n * s.
3. Проверить, хватит ли суммы a и k для выплаты зарплаты.
4. Вывести результат на экран.

Вот код на PascalABC, реализующий данный алгоритм:

pascalCopy code
program CalculateSalary;

var
  a, n, s, k, total_salary: Integer;

begin
  Write('Введите сумму в банке (а): ');
  ReadLn(a);

  Write('Введите количество работников (n): ');
  ReadLn(n);

  Write('Введите среднюю зарплату (s): ');
  ReadLn(s);

  Write('Введите остаток в кассе (k): ');
  ReadLn(k);

  total_salary := n * s; // Вычисляем общую сумму зарплаты

  if a + k >= total_salary then
    WriteLn('Денег хватит для выплаты зарплаты.')
  else
    WriteLn('Денег не хватит для выплаты зарплаты.');

  ReadLn;
end.

Этот код позволит вам определить, хватит ли денег для выплаты зарплаты или нет, и выведет соответствующее сообщение на экран.