Question

С клавиатуры вводится слово. Составить программу, которая: а) определяет количество символов в нем; б) определяет, совпадают ли первая и последняя буквы слова; в) выводит на экран его первый, третий и последний символ; г) определяет, четно или нечетно количество символов в нем. Pascal ABC

Answer 1

var s: string;

begin

readln(s);

writeln('кол-во символов: ',length(s));

if s[1]=s[length(s)] then

writeln('первая и последняя буквы слова совпадают')

else writeln('первая и последняя буквы слова не совпадают');

writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);

if length(s) mod 2=0 then write('кол-во символов четное')

else write('кол-во символов нечетное');

end.

Answer 2

Вот пример программы на языке Pascal ABC, которая выполняет указанные действия:

pascalCopy code
program WordAnalysis;

var
  word: string;

begin
  writeln('Введите слово:');
  readln(word);

  // Определение количества символов в слове
  writeln('Количество символов в слове:', Length(word));

  // Проверка совпадения первой и последней буквы
  if word[1] = word[Length(word)] then
    writeln('Первая и последняя буквы совпадают.')
  else
    writeln('Первая и последняя буквы не совпадают.');

  // Вывод первого, третьего и последнего символа
  writeln('Первый символ:', word[1]);
  writeln('Третий символ:', word[3]);
  writeln('Последний символ:', word[Length(word)]);

  // Проверка четности количества символов
  if Length(word) mod 2 = 0 then
    writeln('Количество символов четное.')
  else
    writeln('Количество символов нечетное.');

  readln;
end.

Вы можете скопировать этот код в среду разработки, поддерживающую Pascal ABC, чтобы выполнить программу и проверить ее работу. Программа будет ожидать ввода слова с клавиатуры, а затем выводить результаты анализа, основанные на заданных условиях.