Информатика страница 21 номер четыре 7 и 4 класс​

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж 

4k+2m+1=41

k+m+1=15

4k+2m=40

k+m=14

2k+m=20

-k-m=-14

k=6

var    a,b,c,d,x1,x2: real;     beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0  then writeln('только комплексные корни')else

begin

d: =sqrt(d);

x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end;     end.

1)1+9+2=12

2)12: 3=4

            вот так!