profile
Опубликовано 6 лет назад по предмету Информатика от Lono

Написать программу Паскаль -перенести первое число в конец
Число трехзначное
Помогите:)

  1. Ответ
    Ответ дан HRAshton
    Прошу:)

    var a, b, c, d: integer;
    begin
         readln(d);
         a := d div 100;
         b := d mod 100 div 10;
         c := d mod 10;
         writeln(b, c, a);
    end.

    можно ещё сократить:
    var a, b, c, d: integer;
    begin
         readln(d);
         writeln(d mod 100 div 10, d mod 10, d div 100);
    end.

    или даже:
    var a, b, c, d: integer;
    begin
         readln(d);
         a := d div 100;
         writeln(d - a * 100, a);
    end.
Самые новые вопросы