1. створити наступну таблицю та заповнити її, врахувавши, що: а. премія в розмірі 50 грн, нараховується працівникам, що відпрацювали не менше 176 годин; ь. нараховано ставка * час роботи + премія; с. податок = 13% від нараховано, d. до видачі = нараховано — податок. час № прізвище до видачі 1 іванов 2 петров 3 сидоров 4 кравчук 5 | прачук 6 савчук 7 васін | разом середнє макс. нарахування зарплати ставка (грн. | премія нараховано | податок роботи за год.) 5,00 | 160 4,50 176 5,50 | 176 5,50 200 6.50 176 5,00 | 50 | 6,00 | 120 2 паблрати стовпчикову діаграму за зразком:
55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...