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

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

Задать свой вопрос
1 ответ

uses crt;

var N,d,z:longint;

begin

ReadLn(N);

d:=1; while N div (d*10)gt;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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт