Question

На паскале пожалуйста)
1) Вводится натуральное число. Заменить в его записи все цифры 5 на цифру 1

2)Вводится натуральное число N и цифра k. Сформировать новое число, получаемое из N путем приписывания к нему цифры k в начале и в конце.

3)Вводится натуральное число. Перед каждой цифрой числа вставить его копию.
(123 112233)
4)Вводится натуральное число. Поменять местами цифры единиц и десятков, сотен и тысяч, десятков тысяч и сотен тысяч и т.д. Если длина записи числа нечетна, то для старшей цифры нет пары и она остается без изменений.
(1234 2143)

Answer 1

Ответ:

1)

program hesf;

var

a,b:integer;

begin

b:=1;

readln(a);

if a=5 then

writeln(b);

begin

if a=1 then

writeln(a);

end;

end.