Трехзначное число является палиндромом если первая и третья цифры в десятичной записи равны между собой.
/* функция определения палиндром или нет. * параметр - исходное число. * возвращает не 0, если палиндром, 0 - если не палиндром */ int is_palindrom (int x) { /* вычисляем первую (младшую) цифру в десятичной записи */ int digit1 = x % 10; /* вычисляем третью (старшую) цифру в десятичной записи */ /* по условию на входе 3-значное число, поэтому без доп. % 10 */ int digit3 = x / 100; return (digit1 == digit3); }
№1 var o,c,k,n,i,j,a,s:longint;l:array[1..1000]of longint;beginwriteln('введите количство чисел в спискe');readln(n);writeln('введите числа из списка по одному');for i:=1 to n doreadln(l[i]);writeln;writeln('введите число которое нужно вставлять');readln(o);writeln('введите число после которого нужно вставить ' ,o,' в список');readln(k);s:=n;for i:=n downto 1 do if l[i]=k then begins:=s+1;for j:=s downto i+1 dol[j]:=l[j-1];l[i+1]:=o;end;for i:=1 to s do write(l[i],' '); end. №2 var c,k,n,i,j,a:longint;l:array[1..1000]of longint;beginwriteln('введите количство чисел в спискe');readln(n);writeln('введите числа из списка по одному');for i:=1 to n doreadln(l[i]);writeln;writeln('введите номер числа которое нужно удалить из списка');readln(k);for i:=k to n do l[i]:=l[i+1];n:=n-1;for i:=1 to n do write(l[i],' ');end.
/* функция определения палиндром или нет.
* параметр - исходное число.
* возвращает не 0, если палиндром, 0 - если не палиндром */
int is_palindrom (int x) {
/* вычисляем первую (младшую) цифру в десятичной записи */
int digit1 = x % 10;
/* вычисляем третью (старшую) цифру в десятичной записи */
/* по условию на входе 3-значное число, поэтому без доп. % 10 */
int digit3 = x / 100;
return (digit1 == digit3);
}