Tin học Pascal

[Nguyễn Long Chi Huy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp e làm bài này với thật sự e k hiểu gì về khúc sau begin hết (

 

[Trâm Nguyễn Thị Ngọc]

Mọi người giúp e làm bài này với thật sự e k hiểu gì về khúc sau begin hết (

Em chỉ mới làm qua nên chưa check code ạ. Anh xem đã đúng yêu cầu của đề bài chưa ạ
Bài 5:

Var...
Begin
    Readln(n);
    For i:=1 to n do
         Begin
               readln(a[i]);
               If a[i] mod 2=0 then tc:=tc+a[i] else tl:=tl+a[i];
               If a[i]>=0 then td:=td+a[i]
               else begin
                            ta:=ta+a[i];
                            If a[i] mod 2=0 then d:=d+1;
                        end;
          end;
      In kq;
End.

Bài 6:

Var ....
Begin
     Readln(s);
     For i:=1 to length(s) do
        If s[i] in ['0'..'9'] then
            Begin
                  Val(s[i],n,code);
                   tong:=tong+n;
                   If n mod 2=0 then begin tc:=tc+n;d:=d+1;end
                  else begin
                                  tl:=tl+n;
                                  write(s[i]);
                       end;
              End;
       In kq;
End.

 

[Nguyễn Long Chi Huy]

Em chỉ mới làm qua nên chưa check code ạ. Anh xem đã đúng yêu cầu của đề bài chưa ạ
Bài 5:

Var...
Begin
    Readln(n);
    For i:=1 to n do
         Begin
               readln(a[i]);
               If a[i] mod 2=0 then tc:=tc+a[i] else tl:=tl+a[i];
               If a[i]>=0 then td:=td+a[i]
               else begin
                            ta:=ta+a[i];
                            If a[i] mod 2=0 then d:=d+1;
                        end;
          end;
      In kq;
End.

Bài 6:

Var ....
Begin
     Readln(s);
     For i:=1 to length(s) do
        If s[i] in ['0'..'9'] then
            Begin
                  Val(s[i],n,code);
                   If n mod 2=0 then begin tc:=tc+n;d:=d+1;end
                  else begin
                                  tl:=tl+n;
                                  write(s[i]);
                       end;
              End;
End.

Cái này là toàn bộ hết abcde gì của nó luôn hả bạn

 

[Trâm Nguyễn Thị Ngọc]

Cái này là toàn bộ hết abcde gì của nó luôn hả bạn

Đúng rồi anh ạ, nhưng em chưa có khai báo và in kq