Например для 45, полиндромом будет 54, а их произведение равно 2430.
Задание, по сути, очень простое для любых двузначных чисел.
4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт
Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]<>' ' do
Begin
C:=C+S[i];
i:=i+1
End;
i:=i+1;
For i:= i to Length(S) do
if (S[i]<>' ')and(i<>Length(S)) then C1:=C1+S[i]
else
Begin
k:=1;
j:=1;
For j:= 1 to Length(C1) do
Begin
n:=0;
For m:= 1 to Length(C) do
if C1[j] = C[m] then n:=1;
if n = 0 then k:=0
End;
if (k = 1)and(C1 <> '') then R:=R+C1+' ';
C1:='';
End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
Верный ответ 2) в последовательности
В линейной презентации слайды демонстрируются в линейной последовательности; в линейном алгоритме действия выполняются также в линейном порядке.