Задача 1.
Прием на работу идет на конкурсной основе. Условие приема требуют не менее 3 лет трудового стажа и возраст не старше 25 лет. (Ввод данных округлите до целых). Определите, будет ли человек принят на работу.

1. Program rabota;
2.   Var s,l:integer;
3. Begin
4.   Write(’Введите Ваш возраст: ’);
5.   Readln(l);
6.   Write(’Введите свой трудовой стаж: ’);
7.   Readln(s);
8.   If (s>=3) and (l<=25) then Writeln(’Вы приняты на работу.’)
9.                         else Writeln(’Извините, для вас работы нет.’);
10.End.

Задача 2.
Вводятся оценки за контрольные по физике и математике. Выведите на экран “Молодец”, если их сумма равна или больше 9, в противном случае - “Подтянись”.

1. Program urok;
2.   Var f,m: integer;
3. Begin
4.   Writeln(’Введите ваши оценки по физике и математике:’);
5.   Readln(f,m);
6.   If (f+m >= 9) then Writeln(’Молодец!’)
7.                 else Writeln(’Подтянись!’);
8. End.

Задача 3.
Группу детей, приехавшую в пионерский лагерь, распределяют по отрядам по принципу: С 6 до 7 лет - 5 отряд, с 7 до 9 лет - 4 отряд, с 9 до 11 лет – 3 отряд, с 11 до 13 лет – 2 отряд, с 13 до 15 (включительно) – 1 отряд. Составьте программу, которая позволила бы каждому приезжающему самому определить свой отряд, округлив свой возраст до целых. В лагере имеется ПК.

1. Program PL;
2.   Var l:integer;
3. Begin
4.   Write(’Введите Ваш возраст: ’);
5.   Readln(l);
6.   If (l>=6) and (l<7) then Writeln(’Вы приняты в 5 отряд!’);
7.   If (l>=7) and (l<9) then Writeln(’Вы приняты в 4 отряд!’);
8.   If (l>=9) and (l<11) then Writeln(’Вы приняты в 3 отряд!’);
9.   If (l>=11) and (l<13) then Writeln(’Вы приняты в 2 отряд!’);
10.  If (l>=13) and (l<=15) then Writeln(’Вы приняты в 1 отряд!’)
11.End.

Задача 4.
В зависимости от введенного признака вычислите: длину окружности при k=1, площадь при k=2. Радиус один и тот же задается пользователем.

1. Program urok1;
2.   Const p=3.14;
3.   Var r,l,s:real;
4.           k:integer;
5. Begin
6.   Write(’Введите радиус: ’);
7.   Readln(r);
8.   Write(’Введите признак: ’);
9.   Readln(k);
10.  If k=1 then begin
11.                l:=2*p*r;
12.                Writeln(‘Длина окружности=’,l)
13.              end;
14.  If k=2 then begin
15.                s:=p*r*r;
16.                Writeln(‘Площадь окружности=’,s)
17.              end;
18.End.

Проверьте себя:
Запишите на Паскале алгоритмы решения следующих задач:
1. В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см и не выше 178 см. Их вес должен соотноситься с ростом по формуле: (Значение веса) <= (значение роста – 115). Определите, будет ли поступающий принят в школу.
2. Проходной бал в институт равен 12. Определите, поступит ли абитуриент, сдающий экзамен по физике, математике и информатике. (оценки вводятся с ПК)
3. Составьте программу, которая вычисляет площадь круга, заданный либо радиусом R,(признак n=1), либо диаметром (n=2),либо длиной окружности L (n=3)
4. Составьте программу-меню, печатающую расписание уроков в вашем классе в определенный день недели.