Назовем натуральное число палиндромом, если его запись читается одинаково с начала и с конца (как, например 4884, 393, 1). определить, является ли заданное число и его квадрат палиндромами.
Function isPali(A : int64) : Boolean; Var B : int64; Begin B:=1; While B<A do B:=B*10; B:=B div 10; If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True; end;
Begin Readln(n); If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.'); Write('Его квадрат ',sqr(n)); If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.'); end.
Хотя в Pabc.net есть функция и покороче:
Function IsPali(B : Longint) : Boolean; Begin IsPali:=(B=IntRevers(B)); end;
1. алг нач цел X ввод X если X>0 то X:=X+1 все вывод X кон
2. алг нач цел X ввод X если X>0 то X:=X+1 иначе X:=X-2 все вывод X кон
3. алг нач цел X ввод X если X>0 то X:=X+1 все если X<0 то X:=X-2 все если X=0 то X:=10 все вывод X кон
4. алг нач цел X,Y,Z,N ввод X,Y,Z N:=0 если X>0 то N:=N+1 все если Y>0 то N:=N+1 все если Z>0 то N:=N+1 все вывод N кон
5. алг нач цел X,Y,Z,N,K ввод X,Y,Z N:=0 K:=0 если X>0 то N:=N+1 иначе K:=K+1 все если Y>0 то N:=N+1 иначе K:=K+1 все если Z>0 то N:=N+1 иначе K:=K+1 все вывод N,K кон
Самые наиболее простые варианты выбрал думаю в самый раз
Главный мой вопрос был бы интернету-человеку - как ты вмещаешь столько информации? Откуда ты все это знаешь и как запоминаешь? Считаешь ли ты себя самым умным и всезнающим человеком? Ставишь ли себя выше всех остальных? Считаешь ли себя незаменимым человеком? А предъявить в обвинения могу тебе (интернет-человек) твою доступность, твои знакомства и связи (начиная с самого маленького возраста). Почему охотно занимаешься разносом самой непроверенной информации и не несёшь за это никакой ответственности.
Даже не знаю ли это Вам. Как то так, на мой лад получилось)
Function isPali(A : int64) : Boolean;
Var B : int64;
Begin
B:=1;
While B<A do B:=B*10;
B:=B div 10;
If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;
Begin
Readln(n);
If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.');
Write('Его квадрат ',sqr(n));
If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.');
end.
Хотя в Pabc.net есть функция и покороче:
Function IsPali(B : Longint) : Boolean;
Begin
IsPali:=(B=IntRevers(B));
end;