Viết chương trình nhập vào 2 số nguyên m,n . Tính và đưa ra màn hình tổng các số chẵn

0 bình luận về “Viết chương trình nhập vào 2 số nguyên m,n . Tính và đưa ra màn hình tổng các số chẵn”

1. Mình dùng theo kiểu file nè:

   Program BTH;
   var a,b,c:longint;
   t:text;
   Procedure init;
   Begin
   assign(t,’tinht.inp’);reset(t);
   readln(t,a,b);
   close(t);
   end;
   procedure timize;
   begin
   c:=a+b;
   end;
   Procedure print;
   begin
   assign(t,’tinht.out’);rewrite(t);
   write(t,c);
   close(t);
   end;
   begin
   init;
   timize;
   print;
   end.

   Trả lời

2. var a,b,i,tong:integer;

   begin

   write(‘a=’);readln(a);

   write(‘b=’);readln(b);

   tong:=a+b;

   writeln(‘ Tong la: ‘,tong);

   if (tong mod 2=0) then writeln(‘ Tong la so chan ‘)

   else write(‘ Tong la so le: ‘);

   readln;

   end.

   Trả lời