Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program lab5_2;
var
i, j, sqr: integer;
square: string;
square_reversed: string = '';
begin
for i := 1 to 100 do
begin
sqr := i * i;
Str(sqr, square);
for j:=Length(square) downto 1 do square_reversed := square_reversed + square[j];
if square = square_reversed then WriteLn(i);
square_reversed := '';
end;
end.
var
i, j, sqr: integer;
square: string;
square_reversed: string = '';
begin
for i := 1 to 100 do
begin
sqr := i * i;
Str(sqr, square);
for j:=Length(square) downto 1 do square_reversed := square_reversed + square[j];
if square = square_reversed then WriteLn(i);
square_reversed := '';
end;
end.
Соседние файлы в папке лаб5