Bài 1: Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập Bài 2: Nhập vào n số nguyên từ bàn phím. Tính tổng

0 bình luận về “Bài 1: Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập Bài 2: Nhập vào n số nguyên từ bàn phím. Tính tổng”

1. 1.program a;

   uses crt;

   var i,tongchan,tongle,j,so:integer; {i là số số nguyên, j là số thứ, so là số nhập vào}

   begin

   clrscr;

   write(‘Nhap so so nguyen: ‘);readln(i);

   tongchan:=0;

   tongle:=0;

   j:=1;

   repeat

   write(‘Nhap so thu ‘,j);readln(so);

   if so mod 2 = 0 then 

   begin

   tongchan:=tongchan+so;

   end else

   begin

   tongle:=tongle+so;

   end;

   j:=j+1;

   until j>i;

   writeln(‘Tong cac so chan la ‘,tongchan);

   writeln(‘Tong cac so le la ‘,tongle);

   readln;

   end.

   2( Tương tự như câu 1)

   Bình luận

2. Câu 1:

   uses crt;
   var a:array[1..1000000] of longint;
         n,i,s,sl:longint;
   begin
         clrscr;
         write(‘n = ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘a[‘,i,’]: ‘); readln(a[i]);
                     if a[i] mod 2=0 then inc(s,a[i]) else inc(sl,a[i]);
               end;
         writeln(‘Tong cac so chan: ‘,s);
         writeln(‘Tong cac so le: ‘,sl);
         readln
   end.

   Câu 2:

   uses crt;
   var a:array[1..1000000] of longint;
         n,i,s:longint;
   begin
         clrscr;
         write(‘n = ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘a[‘,i,’]: ‘); readln(a[i]);
                     if a[i] mod 4=0 then inc(s,a[i])
               end;
         writeln(‘Tong cac so chia het cho 4: ‘,s);
         readln
   end.

   Bình luận