С! рассчитать зарплату бригады по сдельно-премиальной системе. состав бригады: 1 бригадир v разряда - id40654720230416 от Vladimirhdjdn 16.04.2023 04:06

Question

Информатика: С! рассчитать зарплату бригады по сдельно-премиальной системе. состав бригады: 1 бригадир v разряда (часовая тарифная ставка 17,03 руб.); 2 рабочих iv разряда (часовая тарифная ставка 15,15 руб.); 2 рабочих iii разряда (часовая тарифная ставка 13,69 руб.) норма выработки бригады 10 изделий за час работы. фактически бригада изготовила 2000 изделий в месяц. бригадиру выплачивается дополнительно 10% к тарифной ставке. премия выплачивается за выполнение плана - 15%, за каждый % перевыполнения - 0,5%.

Vladimirhdjdn · Accepted Answer

Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
var n, i, fact, ans : integer;
begin
read(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
while (fact mod 10 = 0) do begin
ans := ans + 1;
fact := fact div 10;
end;
writeln(ans);
end.

Теперь более "умный" код, в нём использован тот факт, что простое число p входит в разложение факториала числа N = [N/p] + [N/p^2] + [N/p^3] + ..., где [x] - целая часть числа x.
var n, i, fact, c, pow, ans : integer;
{c - сколько раз входит в разложение числа n! цифра 5}
begin
read(n);
pow := 5;
while (pow <= n) do begin
c += n div pow;
pow := pow * 5;
end;
writeln(c);
end.

MOGZ ответил