Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора

Question

Информатика

Эллочка

16 марта, 22:29

Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора

+4

Ответы (1)

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

Мавра · Answer 1

program itdxvvd;

var x: String;

begin

writeln ('Введите цвет светофора (красный, желтый, зеленый) ') ;

readln (x) ;

if x='зеленый' then

writeln ('На ', x,' цвет можно переходить')

else

writeln ('На ', x,' цвет нельзя переходить') ;

end.