LC

pascal nha

GH
8 tháng 7 2023 lúc 15:19

program cho_xuat;

uses
  System.SysUtils, System.Classes, System.Generics.Collections;

type
  Tsum = record
    value: Integer;
  end;

  TsumArray = array of Tsum;

function cho_xuat(N: String; M: Integer): TsumArray;
begin
  SetLength(Result, Length(N));
  for i := 0 to High(Result) do
  begin
    if N[i] >= 58 then
      Result[i].value := Result[i].value + M
    else
      Result[i].value := Result[i].value - M;
  end;
end;

var
  N, M: String;
  a: TsumArray;
begin
    readln(N, M);
    a := cho_xuat(N, M);

    WriteLn('KQ: ' + N, ' -> ' + ConvertIntToString(M) + '');
    for i := 0 to High(a) do
    begin
        WriteLn(' + ', a[i].value, ' +', );
    end;
end.

Bình luận (0)

Các câu hỏi tương tự
LC
LC
Xem chi tiết
LC
Xem chi tiết
LC
Xem chi tiết
LC
Xem chi tiết
LC
Xem chi tiết
LC
Xem chi tiết
BH
LC
Xem chi tiết