Pascal На работу в совместное предприятие приглашаются специалисты, возраст которых не превышает 50 лет. Определи, будет ли принят на работу человек, возраст которого N лет?
60
ОТВЕТЫ
Const age = 50;
var
n : integer;
begin
write (Введите возраст: );
readln (n);
if nlt;age then write (Будет принят) else write (Не будет принят);
end.
var
n : integer;
begin
write (Введите возраст: );
readln (n);
if nlt;age then write (Будет принят) else write (Не будет принят);
end.
Program n1cel;
var N:integer;
begin
write(Пожалуйста, введите возраст человека в поле ниже);
readln(N);
if Nlt;=35 then writeln(Принят)
else
writeln(Не принят);
end.
var N:integer;
begin
write(Пожалуйста, введите возраст человека в поле ниже);
readln(N);
if Nlt;=35 then writeln(Принят)
else
writeln(Не принят);
end.
84
Отв. дан
Vaibandas
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Soni
Ввести число N. Вывести число, получаемое выписыванием в обратном ...
2019-05-23 08:39:27
Агафон
Ввести число. Вычислить сумму первой и последней цифры. pascal ...
2019-05-23 08:39:00
Гай
Pascal, цикл while или repeat Ввести число. Найти наибольшую ...
2019-05-23 08:37:42
Перфилий
Pascal, цикл while или repeat Ввести число. Определить сумму ...
2019-05-23 08:36:56