Проверить является ли слово ротор палиндромом ( пробелов не должно быть). составить программу на pascal

anat1 anat1    3   01.04.2019 22:00    0

Ответы
krngorohova krngorohova  28.05.2020 08:26

var s1,s2:string;
i:integer;
begin
s1 :='РОТОР';
s2 := '';
for i := length(s1) downto 1 do
s2 := s2 + s1[i];
if(s1=s2)then writeln('Yes')
else writeln('No');
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика