Xét đoạn chương trình sau.

for i:=1 to 10 do

if (i mod  3 = 0) or (i mod 5 = 0) then write(i:3);

Câu hỏi liên quan

• Cho đoạn chương trình sau:
                                    If(a<>1) then x:=9 div a Else x:= -2013;
                                    Write(‘ x= ‘, x + 1);
  Khi cho a = 1 thị đoạn chương trình trên sẽ in ra màn hình giá trị x bằng bao nhiêu?

• Trong Turbo Pascal, xác định tên đúng trong các tên sau:

• Trong pascal, câu lệnh gán nào sau đây là sai:

ZUNIA12

• Trong Turbo Pascal, cho đoạn chương trình(CT) sau T:= 0; for i:=20 downto 1 do   if (i mod  3 = 0) then T:= T+1;      writeln(‘T= ‘, T);

   

  Với đoạn CT trên giá trị đầu là:

• Câu  lệnh X := y ; có nghĩa

• Để nhập giá trị cho x vào từ bàn phím ta dùng:

• Trong Turbo Pascal, cho đoạn chương trình(CT) sau T:= 0; for i:=20 downto 1 do   if (i mod  3 = 0) then T:= T+1;      writeln(‘T= ‘, T);

  Sau khi thực hiện đoạn CT trên giá trị T là:

• Thủ tục write(a+b)  cho kết quả trên màn hình là :

• Trong ngôn ngữ lập trình Pascal, muốn kiểm tra đồng thời cả ba giá trị của A, B, C đều lớn hơn không ta viết câu lệnh If...then... thế nào cho đúng?

• Kết quả của biểu thức sqr(abs(35-40) mod 3) trả về kết quả là

• Trong NNLT Pascal, biểu thức 25 mod 3 + (5/2) * 3 có giá trị là

• Cho a:=3; b:=2. Câu lệnh IF a > b Then x:=a - b Else y:=b – a;

  Sau khi thực hiện đoạn chương trình trên đáp án nào đúng

• Cho biểu thức (a mod 3 = 0) and (a mod 4 = 0). Giá trị của a là

• Trong Turbo Pascal, để lưu một chương trình:

• Biểu thức ((25 mod 10) div 2) có kết quả là mấy?

• Trong ngôn ngữ lập trình Pascal, cho biết đoạn chương trình sau: T := 0 ; I := 0; While I < 50 do      Begin           T := T + I ;           I := I + 2           End ;

  Với cấu trúc While ... do... của đoạn CT trên, câu lệnh sau do là câu lệnh:

• Khi chạy chương trình với lệnh Write(3:2); sẽ được kết quả là:

• Để thực hiện chương trình ta dùng tổ hợp phím:

• Xét chương trình sau?

         Var a, b: integer;

         Begin

                     a:=102;

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

                     if a<b then write(‘Xin chao cac ban!’);

         end.

         Nhập giá trị cho b bao nhiêu để khi chạy chương trình nhận được kết quả ‘Xin chao cac ban!’?

• Trong Turbo Pascal, cho đoạn chương trình (CT) sau: Readln(a);      If (a<>0) then x:=9 div a;          Else x:= -2015;      Write(‘ x= ‘, x + 1);

  Giả sử nhập a = 2, và đoạn CT trên đã sửa đúng cú pháp. Sau khi thực hiện xong đoạn CT trên, kết quả đưa ra màn hình là: