Viết chương trình tính N số nguyên.tính tích các số chẵn Viết chương trình tính N số nguyên .Tính tổng các số lẻ Giúp mk vs mn

0 bình luận về “Viết chương trình tính N số nguyên.tính tích các số chẵn Viết chương trình tính N số nguyên .Tính tổng các số lẻ Giúp mk vs mn”

1. uses crt;
   var i,n,tich,tong:integer;
   begin
      write(‘Nhap n ‘); readln(n);
      tich:=1; tong:=0;
      for i:=1 to n do
      begin
         if i mod 2 = 0 then tich:=tich*i;
         if i mod 2 <> 0 then tong:=tong+i;
      end;
      writeln(‘Tich cac so chan la: ‘,tich);
      writeln(‘Tong cac so le la: ‘,tong);
      readln
   end.

   Bình luận

2. program h247;

   var i, n, tich, tong: integer;

   begin

   write(‘Nhap n ‘); readln(n);

   tich:=1;

   tong:=0;

   for i:=1 to n do

   begin

   if i mod 2=0 then tich:=tich*i;

   if i mod 2<>0 then tong:=tong+i;

   end;

   writeln(‘Tich cac so chan la ‘,tich);

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

   end.

   Bình luận