Задача 1 Поменять местами Дано натуральное число. Поменять местами первую и последнюю...

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.