Определить зарплату работнику по больничному листу, проболевшему к дней при следующих условиях, если стаж работы до 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