Помогите, пожалуйста. Совсем не разбираюсь в этой теме.
Var s,t:string;
Begin
Write(Введите имя Вашего кота!);
Read(t);
if t = Барсик then s:= Кис-Кисelses:= Брысь!;
write(s);
end.
Так пойдет!
Оцени ответ
Вход
Регистрация
Задать вопрос
Var s,t:string;
Begin
Write(Введите имя Вашего кота!);
Read(t);
if t = Барсик then s:= Кис-Кисelses:= Брысь!;
write(s);
end.
Так пойдет!