Question

Напишите программу для турбо паскаля. Условие: фирма осуществляет набор сотрудников, условия приёма : требуется не менее 3 лет рабочего стажа и возраст не более 35 лет.

Answer 1

Var
vozrast,stash:integer;
writeln('Сколько вам лет');
readln(vozrast);
writeln('Какой у вас рабочий стаж');
readln(stash);
if (vozrast< 35) and (stash>3) then
writeln('Мы берем вас на работу')
else writeln('Вы нам не подходите');
end.

Answer 2

Var a,b,c:real;
begin
writeln ('Введите Ваш рабочий стаж:');
readln (a);
writeln ('Введите Ваш возраст:');
readln (b);
if (a>=3) and (b<=35) then
writeln ('Вы нам подходите') else
writeln ('К сожалению, Вы нам не подходите');
end.

Answer 3

Привет! Вот пример программы на Turbo Pascal, которая запрашивает у пользователя данные о сотрудниках и проверяет, соответствуют ли они условиям приема:

luaCopy code
program hiring;

type
  Employee = record
    name: string;
    age: integer;
    experience: integer;
  end;

var
  newEmployee: Employee;

begin
  writeln('Введите данные о новом сотруднике:');
  write('Имя: ');
  readln(newEmployee.name);
  write('Возраст: ');
  readln(newEmployee.age);
  write('Опыт работы (в годах): ');
  readln(newEmployee.experience);

  if (newEmployee.age <= 35) and (newEmployee.experience >= 3) then
    writeln('Сотрудник ', newEmployee.name, ' принят на работу.')
  else
    writeln('К сожалению, сотрудник ', newEmployee.name, ' не соответствует условиям приема.');

  readln; // Ждем, пока пользователь нажмет Enter, чтобы закрыть программу
end.

Программа запрашивает у пользователя данные о новом сотруднике: имя, возраст и опыт работы (в годах). Затем она проверяет, соответствует ли этот сотрудник условиям приема: возраст не более 35 лет и опыт работы не менее 3 лет. Если да, то программа выводит сообщение о том, что сотрудник принят на работу, иначе программа сообщает о том, что сотрудник не соответствует условиям приема.