Var
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
if s[i] <> s[s.Length-i+1] then
begin
Palindrome:=false;
exit;
end;
Palindrome:= true;
end;
begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
Writeln('YES')
else
Writeln('NO');
end.
<u>Пример:</u>
ACAACA
YES
Место посадки Янта изабражено на рисунке 2.Под рисунками 1,3,4 должно быть отмечено АО четыре знака +. Под рисунком 2 - пять заков +.Возможные ответы к Янту на которые можно ответить ДА или НЕТ: На берегу есть цветы? На берегу есть животные?,В лодке есть человек? Возможные ответы к Янту накоторые нельзя ответить Да или НЕТ: Что делает человек в лодке? Какие растения растут на берегу? Сколько человек в лодке?
1)v=1/512Мбайт=1/512*1024*1024*8бит=16384бит
i=16384/4096бит=4бит
N=2^4=16cимволов
ответ:16символов
2)N=8
N=2^i i=3бит
ответ:3бит
Ухо- это же изи , сам подумай)
#include <stdio.h>
int
main(void)
{
char week[7][10] = {
"Monday",
"Tuesday",
"Wednesday",
"Thursday",
"Friday",
"Saturady",
"Sunday"
};
int n_day = 0;
scanf("%d", &n_day);
printf("%s\n", week[n_day % 7]);
return 0;
}
