Информатика c++. ! //необходимо найти "почти-палиндромы" //будем считать "почти-палиндромом" такой палиндром, симметрия в котором нарушена не более чем в одном символе. например: //acbaa - "почти-палиндром", aabbaa - палиндром , acbeq - не палиндром и не "почти-палиндром". // //входные данные: //на вход программе сначала подается число n (натуральное //затем следует n непустых строк. //выходные данные: //программа должна вывести все введенные палиндромы и "почти-палиндромы". //example: //input: //5 //adam aba acbaa abba qwerty //output //aba acbaa abba

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

 

Program asd; var a,c: array[1..2500] of integer; i,n,s,ii: integer;   sr: real; begin write('введите n: ');   readln(n); writeln('массив: ');   for i: =1 to n do     begin   a[i]: =1+random(9);     write(a[i]: 2);     end;       writeln;     writeln('все элементы, которые меньше последнего числа в ряду: '); for i: =1 to n do    begin   if a[i]< a[n] then write(a[i]: 2);   end;   writeln;   writeln('среднее арифметическое элементов массива: ');     for i: =1 to n do    begin    s: =s+a[i];     sr: =s/i;   end;   writeln(sr: 2: 2);         writeln('номер элементов, которые от 3 до 7.: ');       for i: =1 to n do    begin    if   (a[i]> =3) and (a[i]< =7)      then   begin    c[i]: =i;     write(c[i],' ');     end;       end;     end.