1) Приём на работу идёт на конкурсной основе. Условия приёма требуют 20 лет рабочего стажа и возраста не более 42 лет. Определите, будет ли человек принят на работу. 2) В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 178 см. Вес претендента должен соотноситься с ростом по формуле: значение роста вычесть значение веса не более 115. Определите, будет ли поступающий принят в школу. Составить программы на языке Паскаль.

Предыдущий
вопрос Следующий
вопрос

1) Пример программы на языке Паскаль для определения принятия на работу:

program HiringProcess;
var
workExperience, age: integer;
begin
write('Enter the number of years of work experience: ');
readln(workExperience);
write('Enter the age: ');
readln(age);
if (workExperience >= 20) and (age <= 42) then
writeln('The person is accepted for the job')
else
writeln('The person is not accepted for the job');
end.

2) Пример программы на языке Паскаль для определения принятия в школу танцев:

program DanceSchoolAdmission;
var
height, weight: integer;
begin
write('Enter the height (in cm): ');
readln(height);
write('Enter the weight (in kg): ');
readln(weight);
if (height >= 168) and (height <= 178) and (height - weight <= 115) then
writeln('The person is accepted to the dance school')
else
writeln('The person is not accepted to the dance school');
end.