Помогите решить, сколько сможете!

Помогите решить, сколько сможете! (Паскаль) 1) Дано целое четырехзначное число. Выяснить, является ли оно палиндромом, то есть такимчислом, десятичная запись которого читается одинаково слева направо и справа налево.

в избранное

dhyan

12 марта 2023

Задача 1Program Zadanie1; var i,N: integer; A: array[1… 4]of integer; Beginreadln (n); A[1]: =round (int (N/1000); A[2]: =round (int (N/100) -A[1]; A[3]: =round (int (N/10) -A[1]-A[2]; A[4]: =N-A[1]-A[2]-A[3]; if (A[1]: =A[4]) and (A[2]: =A[3]) and (A[3]: =A[2]) and (A[4]=A[1]) then writeln ('полином'); end; Задача 2Program Zadanie2; var i,N: integer; A: array[1… 3]of integer; function Kub (a): integer; begin Kub: =a*a*a; end; Beginreadln (n); A[1]: =round (int (N/1000); A[2]: =round (int (N/100) -A[1]; A[3]: =N-A[1]-A[2]-A[3]; if N*N=kub (A[1])+kub (A[2])+kub (A[3]) then writeln ('равенство'); end;

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?