Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

определить зарплату работнику по больничному листу, проболевшему К дней при следующих условиях,

если стаж работы

до 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.