Ответы
Ответ дал:
0
Var a:string[255];
k,i,d,c:integer;
Begin
read (a);
k:=1;
d:=length(a);
If (d mod 2)=1 then
c:=(d div 2)+1 else c:=c div 2; //Центральная цифра
For i:=1 to c do
If a[i]=a[d-i+1] then k:=k*1 else k:=k*0; //k определяет одинаковые числа
If k=0 then Writeln ('Нет') else Writeln ('Перевертыш');
end.
k,i,d,c:integer;
Begin
read (a);
k:=1;
d:=length(a);
If (d mod 2)=1 then
c:=(d div 2)+1 else c:=c div 2; //Центральная цифра
For i:=1 to c do
If a[i]=a[d-i+1] then k:=k*1 else k:=k*0; //k определяет одинаковые числа
If k=0 then Writeln ('Нет') else Writeln ('Перевертыш');
end.
Ответ дал:
0
Согласен, небольшие ошибки подправил, из-за спешки решения не учел более короткий алгоритм решения. Спасибо за внимание.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад