Задача 1 Поменять местами
Дано натуральное число. Поменять местами первую и последнюю цифры данного натурального
числа и возвести полученное число в квадрат.
Входные данные:
В единственной строке входного файла INPUT.TXT записано одно натуральное число N
(9
)
Выходные данные:
В единственную строку выходного файла OUTPUT.TXT нужно вывести квадрат полученного
числа
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад