1) Приём на работу идёт на конкурсной основе. Условия приёма требуют 20 лет рабочего стажа и возраста не более 42 лет. Определите, будет ли человек принят на работу. 2) В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 178 см. Вес претендента должен соотноситься с ростом по формуле: значение роста вычесть значение веса не более 115. Определите, будет ли поступающий принят в школу. Составить программы на языке Паскаль.
1) Приём на работу идёт на конкурсной основе. Условия приёма требуют 20 лет рабочего стажа и возраста не более 42 лет. Определите, будет ли человек принят на работу. 2) В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 178 см. Вес претендента должен соотноситься с ростом по формуле: значение роста вычесть значение веса не более 115. Определите, будет ли поступающий принят в школу. Составить программы на языке Паскаль.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
1) Пример программы на языке Паскаль для определения принятия на работу:
program HiringProcess;var
workExperience, age: integer;
begin
write′Enterthenumberofyearsofworkexperience:′'Enter the number of years of work experience: '′Enterthenumberofyearsofworkexperience:′;
readlnworkExperienceworkExperienceworkExperience;
write′Entertheage:′'Enter the age: '′Entertheage:′;
readlnageageage;
if (workExperience >= 20) and (age <= 42) then
writeln′Thepersonisacceptedforthejob′'The person is accepted for the job'′Thepersonisacceptedforthejob′ else
writeln′Thepersonisnotacceptedforthejob′'The person is not accepted for the job'′Thepersonisnotacceptedforthejob′;
end.
2) Пример программы на языке Паскаль для определения принятия в школу танцев:
program DanceSchoolAdmission;var
height, weight: integer;
begin
write′Entertheheight(incm):′'Enter the height (in cm): '′Entertheheight(incm):′;
readlnheightheightheight;
write′Entertheweight(inkg):′'Enter the weight (in kg): '′Entertheweight(inkg):′;
readlnweightweightweight;
if (height >= 168) and (height <= 178) and (height - weight <= 115) then
writeln′Thepersonisacceptedtothedanceschool′'The person is accepted to the dance school'′Thepersonisacceptedtothedanceschool′ else
writeln′Thepersonisnotacceptedtothedanceschool′'The person is not accepted to the dance school'′Thepersonisnotacceptedtothedanceschool′;
end.