Cho mảng A các giá trị số nguyên (A[i] ≤ 10^200). Hãy lập trình là tính số giá trị chẵn và lẽ Yêu cầu: Dùng file

0 bình luận về “Cho mảng A các giá trị số nguyên (A[i] ≤ 10^200). Hãy lập trình là tính số giá trị chẵn và lẽ Yêu cầu: Dùng file”

1. uses crt;
   var d:text; t,n,i,m:longint;
   begin
   clrscr;
   assign(d,’input.pas’);reset(d);
      readln(d,n);
      for i:=1 to n do begin  readln(d,m); If m mod 2=0 then inc(t) end;
   close(d);
   writeln(t,’ ‘,n-t);
   readln
   end.

   Đây là cách ngắn ,tốt và đúng nhất nên mong các bạn mong hãy vote cho mình.

   Trả lời

2. Program Clear;
   Uses crt;
   Var A: array[1..10000] of string;
       s: string;
       code: byte;
       i,n,dc,dl,so: integer;

   Function cx(St: String): char;
   Var vt: byte;
   Begin
           vt:=length(St);
           cx:=St[vt];
   End;

   Begin
       Clrscr;
       Write(‘Nhap n: ‘); Readln(n);
       dc:=0; dl:=0;
       For i:=1 to n do
       Begin
           Write(‘Nhap ptu ‘,i,’: ‘); Readln(A[i]);
       End;

       For i:=1 to n do
       Begin
           Val(cx(A[i]),so,code);
           If so mod 2 = 0 then inc(dc)
           Else inc(dl);
       End;
       Write(‘Co ‘,dc,’ so chan va ‘,dl,’ so le’);
       Readln;
   End.

   Trả lời