Программа: Изменение трехзначного числа

Задача: Преобразовать трехначное число, две последние цифры трехзначного числа n (вводится с клавиатуры) умножить на 10 и прибавить первую цифру числа n.

PROGRAM trex_chislo;
    var z,n :integer;
    var y,w,q,x  :real;

BEGIN
    Write ('Введите трехзначное число: ');
    Read (n);
    y:=n div 100;      {определяем первую цифру y=первая цифра}
    z:=n mod 100;      {определяем вторую и третью цифру z=первая, вторая цифра}
    x:=(z * 10) + y;
    WriteLn ('Ответ:', x);
END.

Просмотрело: 2221

Возможно, Вы искали: