Для строки введённые с клавиатуры посчитать количество букв (а) в ней для строки введённые с клавиатуры вывести букву с которой она начинается
букву в которой она заканчивается
проверьте является ли палиндромом слова введённое с клавиатуры
program :lyuboe
var s:string
i.k:integer
begin reason(s) ;k=length(s) ;for I=1
to k do if s(I) =s[k] then begin s:=copy ( s, I+1,k-2) ;k:=k-1; end; writeln(подходит) ; end. ​

nuramanjol    3   24.12.2020 22:20    3