Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Long ca ca

Những câu hỏi liên quan
Long ca ca
Gia Huy
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.

lý nghĩa
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 10 2021 lúc 23:40

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln((a+b)/3-5*a:4:2);

readln;

end.

Long ca ca
Xem chi tiết
Gia Huy Ngô
Xem chi tiết
hữu minh nguyễn
Xem chi tiết
datcoder
26 tháng 10 2023 lúc 13:48

Program HOC24;
var st,st1,st2: string;
i: byte;
f: text;
const fi='SPLIT.INP ' ;
    fo = 'SPLIT.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);a
        read(f,st);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
     st1:='' st2:=''
        for i:=1 to length(st) do
                begin
                        if st[i] in ['A'..'z'] then st1:=st1+st[i];
                        if st[i] in ['0'..'9'] then st2:=st2+st[i];
                end;
        writeln(f,st1);
        write(f,st2);
        close(f);
end;
Begin
ip;
out;
End.

Nguyễn Ken
Xem chi tiết
Long ca ca
Xem chi tiết
QuocDat
11 tháng 8 2023 lúc 15:26

Program GIAINEN;
Var s,st: string;
j,i,k,l: byte;
begin
readln(s);
while length(s)<>0 do
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then st:=st+s[i]
else if s[i] in ['1'..'9'] then break;
for i:=1 to length(s) do
if s[i] in ['2'..'9'] then
begin
val(s[i],k);
l:=i;
break;
end;
for j:=1 to k do write(st);
delete(s,1,l);
st:=''
end;
readln
end.

Long ca ca
Xem chi tiết
Nguyễn Hoàng Duy
1 tháng 7 2023 lúc 19:52

program  Nenxau;

var s: string;
        i, count: integer;
        c: char;

begin
  readln(s);
  count := 1;
  c := s[1];
  for i := 2 to length(s) do
    begin
      if s[i] = c then
        inc(count)
      else
        begin
          write(count);
          write(c);
          count := 1;
          c := s[i];
        end;
    end;
  write(count);
  write(c);
end.

Hoàng Bảo Ngọc
Xem chi tiết
Bùi Hải Nam
17 tháng 2 2016 lúc 10:50

Thu gọn (x+1) ^4 - (x+2) ^5 - ( 1+2x)^3 . Dùng Pascal nha

Câu hỏi tương tự Đọc thêmToán lớp 8