Для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. определить будет ли допущена таня к участию в конкурсе

Question

Информатика

Нинона

19 декабря, 21:28

Для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. определить будет ли допущена таня к участию в конкурсе

+3

Ответы (1)

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

Галуха · Answer 1

Program test;

var r:real;

begin

write ('Введите рост манекенщицы: ') ;

readln (r) ;

if r>180 then writeln ('Манекенщицa допущена к участию в конкурсе')

else writeln ('Манекенщицa не допущена к участию в конкурсе') ;

end.