Задача. Проверить, является ли введённое слово перевёртышем.

Question

Информатика

Светлана

10 августа, 08:36

Задача. Проверить, является ли введённое слово перевёртышем.

+4

Ответы (2)

Знаете ответ на вопрос?

Цецилия · Answer 1

Var

s:string;

i, j, n, m, k:longint;

begin

readln (s) ;

j:=length (s) ;

for i:=1 to length (s) div 2 do

begin

if s[i]s[j] then

begin

wrtieln ('Слово не является перевертышем') ;

halt;

end;

dec (j) ;

end;

writeln (' Слово является перевертышем ') ;

end.

Лера · Answer 2

Var s:string;

i:integer;

begin

writeln ('Vvedite slovo') ;

readln (s) ;

for i:=1 to length (s) do

if s[i]s[length (s) + 1-i] then break

else if i=length (s) then writeln ('da') ;

if ilength (s) then writeln ('net') ;

end.