Написать программу, по которой компьютер приветствовал бы своего хозяина, а при попытке ввести какое-либо другое имя спрашивал бы: А где Вася?

Question

Информатика

Емельян

18 марта, 04:13

Написать программу, по которой компьютер приветствовал бы своего хозяина, а при попытке ввести какое-либо другое имя спрашивал бы: А где Вася?

+1

Ответы (1)

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

Матюша · Answer 1

Var s:string;

begin

writeLn ('Назовите Ваше имя') ;

readln (s) ;

if (s='Вася') or (s='вася') then

writeLn ('Привет, ', s)

else writeLn ('А где Вася?') ;

end.