Câu 1: viết chương trình nhập 2 số nguyên dương a và b rồi tính tổng của chúng nếu a và b là số chẵn hoặc tích của chúng trong trường hợp còn lại. Câu

0 bình luận về “Câu 1: viết chương trình nhập 2 số nguyên dương a và b rồi tính tổng của chúng nếu a và b là số chẵn hoặc tích của chúng trong trường hợp còn lại. Câu”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var a,b,t: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           If (a mod 2 = 0) and (b mod 2 = 0) then Write(‘Tong la: ‘,a+b);
           If (a mod 2 = 1) and (b mod 2 = 1) then Write(‘Tich la: ‘,a*b);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var n,i,d,t: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0; t:=0;
           For i:=1 to n do
           Begin
                   If i mod 2 = 0 then inc(d);
                   If i mod 2 = 1 then t:=t+i;
           End;

           Writeln(‘Co ‘,d,’ so chan’);
           Write(‘Tong cac so le: ‘,t);
           Readln
   End.

   Bình luận