Cho 1 vi dụ về câu lệnh điều kiện? Rồi viết chương trình pascal chạy lên. Ai nhanh nhất cho 5*. Ko chép mạng

0 bình luận về “Cho 1 vi dụ về câu lệnh điều kiện? Rồi viết chương trình pascal chạy lên. Ai nhanh nhất cho 5*. Ko chép mạng”

1. ví dụ  if n mod 2 = 0 then write (n,’ la so chan’);

   else write (‘n,’ khong phai la so chan’);

   program lechan;

   uses crt;

   var n:integer;

   begin

   write (‘nhap so n la:’); readln(n);

   if n mod 2 = 0 then write (n,’ la so chan’);

   else write (‘n,’ khong phai la so chan’);

   readln;

   end.

   Bình luận

2. VD: if (a>b) and (a>c) then write(a, ‘ la so lon nhat trong 3 so’) else write(a, ‘ khong phai so lon nhat trong 3 so’);

   VCT:

   program ctpt;

   uses crt;

     var, a, b, c: integer;

   begin

     clrscr;

     write(‘Nhap a = ‘); readln(a);

     write(‘Nhap b = ‘); readln(b);

     write(‘Nhap c = ‘); readln(c);

     if (a>b) and (a>c) then write(a, ‘ la so lon nhat trong 3 so’) else write(a, ‘ khong phai so lon nhat trong 3 so’);

     readln

   end.

   Bình luận