Помогите, пожалуйста. Совсем не разбираюсь в этой теме.

Question

Помогите, пожалуйста. Совсем не разбираюсь в этой теме.

---

Answer 1

Var s,t:string;
Begin
Write('Введите имя Вашего кота!');
Read(t);
if t = 'Барсик' then s:= 'Кис-Кис'elses:= 'Брысь!';
write(s);
end.

Так пойдет!

Comments

Мне нужно все
Но спасибо 

---

var y,x:real;
Begin
Write('Введите значение х');
Read(x);
if x >3 then 
y:= sqrt(x-4)
else
writeln('х должен быть больше 3');
write(y);
end.

---

var y,x:real;
Begin
Write('Введите значение х');
Read(x);
if x >= -1 then 
y:= 2
else
y:= 2 / sqr(x);
write(y);
end.