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

Question

Информатика

Егоша

17 апреля, 02:37

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

+1

Ответы (1)

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

Лукиана · Answer 1

Var s:string;

begin

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

readln (s) ;

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

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

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

end.