If a+b>c and a+c>b and b+c>a then print('true') else print('false')
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.
Получать слова можно по-разному. Самое простое - собирать их по буквам:
var st1,st2:string[10];
begin
readln(st1);
st1:='клавиатура';
st2:=st1[7]+st1[8]+st1[9];
writeln(st2);
st2:=st1[9]+st1[8]+st1[1]+st1[3];
writeln(st2);
st2:=st1[2]+st1[3]+st1[4]+st1[1]+st1[3];
writeln(st2);
st2:=st1[4]+st1[3]+st1[7]+st1[10];
writeln(st2);
end.
Результат:
тур
рука
лавка
вата
Объяснение:
& не стоит у меня, но выполняет свои действия, у себя его ставьте!