Viết chương trình. tính 1+1 và hãy bảo máy tính chờ trong 3 giây

0 bình luận về “Viết chương trình. tính 1+1 và hãy bảo máy tính chờ trong 3 giây”

1. Program qtruong;
   Uses crt;
   Var tong:integer;
   Begin
   Clrscr;
   tong:=1+1;
   Writeln(‘Tong cua 1 + 1 la: ‘,tong);
   Delay(3000);
   Readln
   End.

   Trả lời

2. program tinh_tong;

   uses crt;

      var ketqua, a: real;

   begin

     clrscr;

     writeln(‘Nhap phep tinh: ‘); readln(a);

     ketqua:=1+1;

     clrscr;

     writeln(‘Goi ket qua cua phep tinh 1+1 la a.’);

     writeln(‘Ket qua cua phep tinh la: a=’, 1+1);

     delay(3000);

   end.

   

   Trả lời