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

Question

Информатика

Ефремий

9 августа, 04:42

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

+2

Ответы (1)

Знаете ответ?

Сергуся · Answer 1

Program test;

var r:real;

begin

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

readln (r) ;

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

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

end.