20 БАЛЛОВ!!! В Pascal доделать программу, чтобы она работала: типо дописать begin, var... ЗАДАЧА: ReadLn(s);
L:= length(s);
M:= trunc(L/2);
For i:= 1 to M if s[i]<>s[L+1-i] then k:=1;
If k=1 then writeLn(‘не палиндром’)
else writeLn(‘палиндром’);
L:= length(s);
M:= trunc(L/2);
For i:= 1 to M if s[i]<>s[L+1-i] then k:=1;
If k=1 then writeLn(‘не палиндром’)
else writeLn(‘палиндром’);
More Questions From This User See All