Напишите программу для турбо паскаля. Условие: фирма осуществляет набор сотрудников,...

Question

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

Comments

Типа вводишь стаж и возраст и программа определит подходишь или нет, так?

Answer 1

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

Answer 2

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