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

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

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

при переводе десятичных дробей, чтобы перевести из десятичной системы счисления нужно:

1) последовательно умножать данную дробь на основание системы счисления, в которую переводим, до тех пор, пока дробная часть не будет равна нулю, или не будет достигнута требуемая точность вычислений. при этом необходимо выделять целые части получаемых произведений; 2) полученные целые части произведений, являются цифрами числа в новой системе счисления (при необходимости их надо в соответствие с алфавитом этой системы счисления); 3) составить дробную часть в новой системе счисления начиная с целой  части первого произведения.

0,625 в десятич. :

0,625*2=1,25

0,25*2=0,5

0,5*2=1

итого: 0,101

 

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

0.101 в двоичной = 0, 1*2^-1 + 1*2^-3=0, 625

 

3,875 (10)=11.111 (2)

Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй. var i: integer; begin writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readln end. вывести квадраты чисел от 1 до 10 var     i: integer; begin     for i: =1 to 10 do       writeln(i: 4,'   ',sqr(i): 4);     readln end. число n вводят с клавиатуры.напечатать n раз число 5 (и оставшиеся 2 можно этой же, просто поменяй кое-какие детали, подумай какие)vari,n: integer; beginwriteln('введите кол-во повторов числа: '); readln(n); for i: =1 to n dowriteln('5'); readlnend.