Задание:
С клавиатуры вводят число. Составить программу которая: а) Определяет количество символов в нем; б) проверяет, не совпадают ли первая и последняя буква слова; в) выводит на экран первый, второй и последний символы; г) определяет, четно или нечетно количество символов в слове.
Решение:
В) program primer_4; var a: string; k: integer; beginwriteln ('Введите слово'); k: =length (a); read (a); read (a[1], a[2], a[k]); end. А) program primer_2; var a: string; n: integer; beginread (a); n: =length (a); writeln (n); end. Б) program primer_3; var a: string; k: integer; beginwrite ('Введите слово: '); read (a); k: =length (a); if a[1]=a[k] then writeln ('Да') else writeln ('Нет'); end.
Знаете другой ответ?