Напишите программу для турбо паскаля. условие: фирма осуществляет набор сотрудников, условия приёма : требуется не менее 3 лет рабочего стажа и возраст не более 35 лет.
Var vozrast,stash:integer; writeln('Сколько вам лет'); readln(vozrast); writeln('Какой у вас рабочий стаж'); readln(stash); if (vozrast< 35) and (stash>3) then writeln('Мы берем вас на работу') else writeln('Вы нам не подходите'); end.
Var a,b,c:real; begin writeln ('Введите Ваш рабочий стаж:'); readln (a); writeln ('Введите Ваш возраст:'); readln (b); if (a>=3) and (b<=35) then writeln ('Вы нам подходите') else writeln ('К сожалению, Вы нам не подходите'); end.
vozrast,stash:integer;
writeln('Сколько вам лет');
readln(vozrast);
writeln('Какой у вас рабочий стаж');
readln(stash);
if (vozrast< 35) and (stash>3) then
writeln('Мы берем вас на работу')
else writeln('Вы нам не подходите');
end.
begin
writeln ('Введите Ваш рабочий стаж:');
readln (a);
writeln ('Введите Ваш возраст:');
readln (b);
if (a>=3) and (b<=35) then
writeln ('Вы нам подходите') else
writeln ('К сожалению, Вы нам не подходите');
end.