• 1 Дано трехзначное число. Найти число, полученное при прочтении его цифр
    справа налево. Паскаль
    2 . Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали
    ее в конце. Найти полученное число. Паскаль

Ответы 1

  • 1.                                        

    program raf105;

    var abc,a,b,c: integer;

    begin

    write('Введите трёхзначное число: ');

    readln(abc);

    a:= abc div 100;

    b:= (abc div 10) mod 10;

    c:= abc mod 10;

    abc:= c*100 + b*10 + a;

    writeln('Число наоборот: ',abc);

    end.

    2.                                        

    program raf105;

    var abc,a,b,c: integer;

    begin

    write('Введите трёхзначное число: ');

    readln(abc);

    a:= abc div 100;

    b:= (abc div 10) mod 10;

    c:= abc mod 10;

    abc:= b*100 + c*10 + a;

    writeln('Первое число переместили в конец: ',abc);

    end.

                                             PascalABC 3.4.2

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years