Написать программу которая подбирает спутника жизни пол мужской рост не меньше 170 см, возраст не больше 17. в программе паскаль

Question

Информатика

Эсфира

24 сентября, 22:12

Написать программу которая подбирает спутника жизни пол мужской рост не меньше 170 см, возраст не больше 17. в программе паскаль

+3

Ответы (1)

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

Кузяша · Answer 1

Var e: integer;

h: real;

m: string;

begin

writeln ('Введите пол') ;

readln (m) ;

writeln ('Введите рост (см) ') ;

readln (h) ;

writeln ('Введите возраст') ;

readln (e) ;

if m[1] = 'м') and (h >=170) and (e<=17) then

writeln ('Спутник')

else

writeln ('Не спутник') ;

end.