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.

Answer 2

Конечно, вот решения ваших задач на языке Pascal:

1. Замена всех цифр 5 на цифру 1:

pascalCopy code
program ReplaceDigits;
var
    num, newNum, digit: integer;
begin
    writeln('Введите натуральное число:');
    readln(num);
    
    newNum := 0;
    repeat
        digit := num mod 10;
        if digit = 5 then
            digit := 1;
        newNum := newNum * 10 + digit;
        num := num div 10;
    until num = 0;
    
    writeln('Число после замены:', newNum);
end.

2. Приписывание цифры k в начале и в конце числа:

pascalCopy code
program AppendDigits;
var
    N, k, newNum: integer;
begin
    writeln('Введите натуральное число N:');
    readln(N);
    writeln('Введите цифру k:');
    readln(k);
    
    newNum := k * 1000000 + N * 10 + k;
    
    writeln('Новое число:', newNum);
end.

3. Вставка копии каждой цифры перед ней:

pascalCopy code
program DuplicateDigits;
var
    num, newNum, multiplier: integer;
begin
    writeln('Введите натуральное число:');
    readln(num);
    
    newNum := 0;
    multiplier := 1;
    
    while num > 0 do
    begin
        newNum := newNum + num mod 10 * multiplier * 11;
        num := num div 10;
        multiplier := multiplier * 100;
    end;
    
    writeln('Число после вставки:', newNum);
end.

4. Поменять местами разряды числа:

pascalCopy code
program SwapDigits;
var
    num, newNum, multiplier: integer;
begin
    writeln('Введите натуральное число:');
    readln(num);
    
    newNum := 0;
    multiplier := 1;
    
    while num > 0 do
    begin
        newNum := newNum + (num mod 100 div 10) * multiplier + (num mod 10) * multiplier * 10;
        num := num div 100;
        multiplier := multiplier * 100;
    end;
    
    writeln('Число после перестановки:', newNum);
end.

Просто скопируйте каждую программу в среду разработки Pascal (например, Free Pascal) и выполните её, чтобы увидеть результаты.