Question

Задача 1 Поменять местами
Дано натуральное число. Поменять местами первую и последнюю цифры данного натурального
числа и возвести полученное число в квадрат.
Входные данные:
В единственной строке входного файла INPUT.TXT записано одно натуральное число N
(9 )
Выходные данные:
В единственную строку выходного файла OUTPUT.TXT нужно вывести квадрат полученного
числа

Answer 1

uses crt;

var N,d,z:longint;

begin

ReadLn(N);

d:=1; while N div (d*10)>0 do d:=d*10;

N:=N mod 10*d+N mod d div 10*10+N div d;

WriteLn(N);

z:=N*N;

Writeln(z);

end.