Консультация № 189003
22.03.2016, 16:56
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Необходимо срочно решить задачу.Не могу написать программу:Приписать к числу, введенному с клавиатуры, справа и слева по 1, с использованием цикла (т.е. получить новое число. Например, а=223, результат а=12231)

Обсуждение

давно
Старший Модератор
31795
6196
22.03.2016, 19:10
общий
это ответ
Здравствуйте, Alenka!

Смотрите приложение:
[code lang=pascal h=200]var
a,b:longint;
begin
write('enter number');
readln(a);
b:=1;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
a:=1;
while b>0 do
begin
a:=a*10+b mod 10;
b:=b div 10;
end;
writeln('result:',a);
end.
[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа