viết chương trình tính tổng a cộng 10 với a là số nguyên

0 bình luận về “viết chương trình tính tổng a cộng 10 với a là số nguyên”

1. program az;

   uses Crt;

   var a,T : longint;

   begin

   clrscr;

   Write(‘Nhap a = ‘); readln(a);

   T := a + 10;

   Write(‘Tong a + 10 la : ‘,T);

   readln

   end.

   Bình luận

2. program ctpt;

   uses crt;

     var a: integer;

   begin

               clrscr;

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

               writeln(‘Tong = ‘, a+10);

               readln

   end.

   Bình luận