Для строки введённые с клавиатуры посчитать количество букв (а) в ней для строки введённые с клавиатуры вывести букву с которой она начинается
букву в которой она заканчивается
проверьте является ли палиндромом слова введённое с клавиатуры
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.
291
428
Ответы на вопрос:
https://ru-static.z-dn.net/files/d90/bf7940b51f8f80ddb31969fa7a04ec1c.png
https://ru-static.z-dn.net/files/dcd/c0fc5f26bd521de1f9f62d94d439cb9c.png
Популярно: Информатика
-
Дурень22813.03.2022 13:11
-
Tapty09.04.2020 07:29
-
ndzandigiv18.08.2022 05:34
-
АшадЕфремова01.09.2020 20:25
-
Temosha10101019.07.2021 22:29
-
snigireva0008.08.2021 11:29
-
жсдрю18.03.2022 01:08
-
maria2701200705.04.2020 01:49
-
Стариат24.04.2020 13:20
-
крузейро18.03.2023 15:05