Đề: Viết chương trình nhập vào năm sinh của HS lớp 8/1. In ra màn hình tuổi của HS lớp 8/1 ( Pascal)

0 bình luận về “Đề: Viết chương trình nhập vào năm sinh của HS lớp 8/1. In ra màn hình tuổi của HS lớp 8/1 ( Pascal)”

1. uses crt;
   var namsinh:integer;
   begin
      clrscr;
      write(‘Nhap nam sinh cua HS lop 8/1: ‘); readln(namsinh);
      writeln;
      write(‘HS lop 8/1 nam nay ‘,2020-namsinh,’ tuoi’);
      readln
   end.

   Bình luận

2. program lop8/1;

   uses crt;
   var ns,t:integer;
   begin clrscr;
      writeln(‘Nhap nam sinh cua HS lop 8/1: ‘); readln(ns);

        t:=2020-ns;
      write(‘Tuoi HS lop 8/1 la: ‘,t);
   readln;
   end.

   Học tốt!

   Bình luận