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

Question

Информатика

Лариса

8 ноября, 16:12

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

+5

Ответы (2)

Знаете ответ на вопрос?

Рита · Answer 1

Var

vozrast, stash:integer;

writeln ('Сколько вам лет') ;

readln (vozrast) ;

writeln ('Какой у вас рабочий стаж') ;

readln (stash) ;

if (vozrast3) 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

writeln ('Вы нам подходите') else

writeln ('К сожалению, Вы нам не подходите') ;

end.