viết chương trình pascal 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 pascal 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. uses crt;
   var i,s,n: integer;
   begin
   clrscr;
   write(‘Nhap vao so n = ‘);readln(n);
   i:=1;
   s:=0;
   while i<=n do
   begin
   s:=s+i;
   inc(i);
   end;
   writeln(‘Tong cua ‘,n,’ so tu nhien dau tien la ‘,S);
   readln;
   end.

   Bình luận