Viết sử dụng chương trình con thủ tục, tính tổng của 5 cặp số bất kì

0 bình luận về “Viết sử dụng chương trình con thủ tục, tính tổng của 5 cặp số bất kì”

1. program justin_bieber;

   uses crt;

   var a,b,c,d,e,S: real;

   begin;

   clrscr;

   writeln(‘nhap 5 so bat ki ma ban chon: ‘);

   readln(a,b,c,d,e);

   S=a+b+c+d+e;

   writeln(‘tong 5 so bat ki ma ban vua nhap la: ‘,S);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses Crt;
   var a,b,c,d,e,f:longint;
   procedure ST;
   Begin
   f:=a+b+c+d+e;
   end;
   Begin
   Clrscr;
   Write(‘Nhap so thu 1: ‘);readln(a);
   Write(‘Nhap so thu 2: ‘);readln(b);
   Write(‘Nhap so thu 3: ‘);readln(c);
   Write(‘Nhap so thu 4: ‘);readln(d);
   Write(‘Nhap so thu 5: ‘);readln(e);
   ST;
   Writeln(‘Tong 5 so tren la: ‘,f);
   readln;
   End.

   Bình luận