Проверить является ли введенное слово перевертышем?
Написать программу в Паскале!
mnv1962:
строквый тип проходили?
Ответы
Ответ дал:
0
var
i,n,k:integer;
s:string;
begin readln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln('y')
else
writeln('n');
end.
s:string;
begin readln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln('y')
else
writeln('n');
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад