Program perimetr и есть оно)
Const
N = 10;
Var
A:array[1..N] of integer;
i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-b;
Write(' ',A[i])
End;
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-A[N];
Write(' ',A[i])
End;
End.
Если надо найти палиндром,идущий за числом N. То вот программа:
1) а=0 0 = 10. нет, тогда b становится -3 (т.к. -(3)+ 0 * 0), а становится 2
2). а = 2 2 = 10, нет, тогда b становится 7 (т.к. -(-3) + 2 * 2), а становится 4
3). а = 4 4 = 10, нет, тогда b становится 9 (т.к. -(7) + 4 * 4), а становится 6
4). а = 6 6=10, нет, тогда b становится 27 (т.к. -(9) + 6 * 6), а становится 8
5). а = 8 8=10, нет, тогда b становится 37 (т.к. -(27) + 8 * 8), а становится 10
6). a = 10 10 = 10 да, b = b * 2 = 37 * 2 = 74
ответ: 74
program z1;
var a,b,c:longint;
begin
read(a,b);
c:=(a+b)div(2*a);
writeln(c);
end.