uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.
Правильно D )) lol ())))))
Program points;
uses crt;
var x, y:real;
begin
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x > 0) and (y > 0) then
writeln('<span>Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости</span>')
else
writeln('<span>Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости</span>');
readln
end.