Câu 2 Viết ct để 1 bạn học sinh mới vào lớp thực hiện chào hỏi các bạn hs trong lớp

0 bình luận về “Câu 2 Viết ct để 1 bạn học sinh mới vào lớp thực hiện chào hỏi các bạn hs trong lớp”

1. program phuongt;
   uses crt;
        var n, f, v: string;
                  o: integer;
   begin
          clrscr;
          writeln(‘Chao cac ban’);
          write(‘Minh la: ‘); readln(n);
          write(‘Nam nay minh bang tuoi cac ban, la: ‘); read(o); writeln(‘tuoi’);
          write(‘Minh tu truong ‘); read(f); writeln(‘chuyen den day’);
          write(‘Minh thich ‘); readln(v);
          write(‘Co gi mong moi nguoi giup do minh a!’);
          readln
   end.

   Bình luận

2. program gioi_thieu;

   uses crt;

   var s:string;

   begin

          clrscr;

          write(‘Ho va ten: ‘);   readln(s);

          write(‘Toi den tu ‘);   readln(s);

          write(‘So thich cua toi la ‘);   readln(S);

          readln;

   end.

   Bình luận