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.