Question

ЯЗЫК ПАСКАЛЬ, 40 БАЛЛОВ Рассчитать надбавку к зарплате за стаж, если стаж от 2 до 5 лет, надбавка составляет S1 руб., если стаж от 5 до 10 лет – S2 руб. Ввести с клавиатуры зарплату и стаж, вывести надбавку и сумму к выплате.

Answer 1

Ответ:

const s1 = 10000;

const s2 = 15000;

var sum,zp,st: integer;

begin

write('Введите стаж: ');

readln(st);

write('Введите зарплату: ');

readln(zp);

if (st>=2) and (st<=5) then sum:=zp+s1

else if (st>5) then sum:=zp+s2;

writeln('Зарплата: ',zp);

writeln('Стаж: ',st);

if (st>=2) and (st<=5) then writeln('Надбавка: ',s1)

else if (st>5) then writeln('Надбавка: ',s2);

writeln('Сумма к выплате: ',sum);

end.

Answer 2

Конечно, вот пример кода на языке Паскаль, который выполняет указанные вами задачи:

pascalCopy code
program CalculateSalaryBonus;

var
  Salary, Experience, Bonus, TotalPayment: real;

begin
  writeln('Введите размер зарплаты: ');
  readln(Salary);
  
  writeln('Введите стаж работы (в годах): ');
  readln(Experience);
  
  if (Experience >= 2) and (Experience < 5) then
    Bonus := S1
  else if (Experience >= 5) and (Experience < 10) then
    Bonus := S2
  else
    Bonus := 0;
    
  TotalPayment := Salary + Bonus;
  
  writeln('Надбавка: ', Bonus:0:2, ' руб.');
  writeln('Сумма к выплате: ', TotalPayment:0:2, ' руб.');
  
end.

Пожалуйста, замените S1 и S2 на конкретные значения надбавок, которые у вас имеются для стажей от 2 до 5 лет и от 5 до 10 лет. Также, обратите внимание, что в данном примере я использовал переменные типа real для зарплаты, стажа, надбавки и суммы к выплате. В реальной программе может потребоваться выбрать подходящий тип данных в зависимости от требований.

Пример кода выше решает задачу на основе вашего описания, однако, для точной реализации, возможно, потребуется некоторое дополнение или корректировка в зависимости от требований и особенностей языка Паскаль, который вы используете.