Найти симметричные натуральные числа из промежутка от А до В (А и В вводятся с клавы). паскаль
More Questions From This User See All
Найти симметричные натуральные числа из промежутка от А до В (А и В вводятся с клавы). паскаль
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
a, b, i, j: integer;
l, l2: string;
begin
readln(a, b);
for i := a to b do
begin
l := i.ToString();
l2 := '';
for j := 1 to length(l) do
l2 := l[j] + l2;
if (l = l2) then writeln(l);
end;
end.