Решаем задачи Абрамян на Паскале. Proc 8

Proc8. Описать процедуру AddRightDigit($$D$$, $$K$$), добавляющую к целому положительному числу $$K$$ справа цифру $$D$$ ($$D$$ — входной параметр целого типа, лежащий в диапазоне 0-9, $$K$$ — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K справа данные цифры $$D_1$$ и $$D_2$$, выводя результат каждого добавления.

Решение:

program Proc13;
procedure AddRightDigit(D:Integer; var K:Integer);
begin
K:=K*10+D;
end;

var
  K, D1, D2: Integer;
begin
  Write('Введите число K: ');
  Readln(K);
  Write('Введите цифру D1: ');
  Readln(D1);
  AddRightDigit(D1,K);
  writeln (K);
  Write('Введите цифру D2: ');
  Readln(D2);
  AddRightDigit(D2,K);
  writeln (K);
end.

program Proc13;

procedure AddRightDigit(D:Integer; var K:Integer);

begin

K:=K*10+D;

end;

var

K, D1, D2: Integer;

begin

Write('Введите число K: ');

Readln(K);

Write('Введите цифру D1: ');

Readln(D1);

AddRightDigit(D1,K);

writeln (K);

Write('Введите цифру D2: ');

Readln(D2);

AddRightDigit(D2,K);

writeln (K);

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 8

Комментарии:

Добавить комментарий Отменить ответ