Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441
А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>
#include <iostream>
using namespace std;
int main()
{
int a, b, s = 0;
cin >> a >> b;
for (int i = a; i <= b; i++)
s += i;
cout << s << endl;
system("pause");
return 0;
}
В цикле for переменная i принимает все значения от A до B включительно, и эти значения суммируются в переменную S.
<span>n = int(input('n ='))
m = int(input('m ='))
if n%2<span>:
</span> for i in range(n,m+1,2)<span>:
</span> print(i,'**2 = ',i**2)
else<span>:
</span> for i in range(n+1, m+1, 2)<span>:
</span> print(i, '**2 = ', i ** 2)</span>