Пожалуйста, даю 30 баллов

Пожалуйста, даю 30 баллов

Задать свой вопрос
1 ответ
Var N,S,a,b,c,d,x1,x2,x3: integer;
begin
readln(N);
a:=N div 1000;
b:=N div 100 mod 10;
c:= N mod 100 div 10;
d:=N mod 10;
x1:= d*1000+c*100+b*10+a;
x2:=a*1000+c*100+b*10+d;
x3:=b*1000+a*100+d*10+c;
S:=N+x1+x2+x3;
write(S);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт