Определить зарплату работнику по больничному листу, проболевшему К дней при следующих условиях, если стаж работы до 6 лет – 60%, от 6-8 – 80%, более 8 – 100 %, если несовершеннолетний –100 %,   зарплата работника Z рублей в день.

Паскаль   uses crt; var m:string; k,l,z:real; begin clrscr; writeln('Укажите количество дней.'); read(k); writeln('Укажите зарплату работника.'); read(z); writeln('Работник совершеннолетний? да/нет.'); read(m); if (m='да') then write('Зарплата составит  ',z,'руб.'); if (m='нет') then begin writeln('Укажите стаж работы'); read(l); if l<6 then write('Зарплата составит ',z*0.6,'руб.'); if l>8 then write('Зарплата составит ',z,'руб.') else write('Зарплата составит ',z*0.8,'руб.'); end; end.

Я напишу полную зарплату, учитывая зарплату полных рабочих дней, и тех, что он был на больничном, не учитывая выходные дни, но учитывая количество дней в месяце.   Код для Visual Basic(на платформе .Net)   Sub Zaprlata Dim K , Staj, Z, Zarplata, Dni, Vozrast As Integer   K = InputBox("Введите количество больничных дней") Z = InputBox("Введите заработную плату в день") Staj = InputBox("Введите стаж работы(кол-во лет)") Dni = InputBox("Введите количество дней в месяце") Vozrast = InputBox("Введите возраст рабочего") If Staj < 6 Then  Zarplata = (Dni-K)*Z + K*(0.6*Z) ElseIf Staj > 6 And staj < 8 Then Zarplata = (Dni-K)*Z + K*(0.8*Z) ElseIf Staj > 8 Or Vozrast < 18 Then  Zarplata = Dni * Z End If  End Sub