Viết chương trình nhập 4 số nguyên và tính tổng các số chẵn? Giúp giải với

0 bình luận về “Viết chương trình nhập 4 số nguyên và tính tổng các số chẵn? Giúp giải với”

1. uses crt;
   var a:array[1..4]of longint; i,tong:longint;
   begin
   clrscr;
      write(‘Nhap 4 so:’);readln(a[1],a[2],a[3],a[4]);
      for i:=1 to 4 do if a[i] mod 2=0 then inc(tong,a[i]);
      writeln(tong);
   readln;
   end.

   Bình luận

2. uses crt;

   var i,n:integer;

        a:array[1..4] of integer;

   begin

   clrscr;

   writeln(‘Nhap 4 so nguyen:’);

   n:=0;

   for i:= 1 to 4 do

    begin

    readln(a[i]);

    If a[i] mod 2 = 0 then n:=n+a[i]

    end;

   writeln(‘Tong cac so chan la: ‘,n);

   readln;

   end.

   Bình luận