Pascal- Phần C

Chương trình sau in ra gì khi nhập x=2; Var x:integer; 

Begin 

Write(‘nhap x=’);readln(x); 

Write(sqrt(sqr(x))); 

End. 

• 2

• 4

• 8

• 0

Kết quả bằng bao nhiêu khi n=4 Var N,i,S:integer; 

Begin 

Clrscr; 

Write('Nhap vao gia tri cua N :'); Readln(N); 

S:=0; 

For i:=1 to N do S:=S+i; 

Writeln('Ket qua la :',S); 

Readln; 

End. 

• 10

• 12

• 14

• 15

Kết quả bằng bao nhiêu khi n=4 Var N,i,S:integer; 

Begin 

Clrscr; 

Write('Nhap vao gia tri cua N :'); Readln(N); 

S:=5; 

For i:=1 to N do S:=S+i; 

Writeln('Ket qua la :',S); 

Readln; 

End. 

• 10

• 12

• 14

• 15

Kết quả bằng bao nhiêu khi n=4 Var N,i,S:integer; 

Begin 

Clrscr; 

Write('Nhap vao gia tri cua N :'); Readln(N); 

S:=0; 

For i:=1 to N do S:=S*1; 

Writeln('Ket qua la :',S); 

Readln; 

End. 

• 0

• 10

• 1

• một giá trị khác

Bảng mã ASCII có bao nhiêu kí tự :

• 256

• 255

• 128

• 512

Độ dài tối đa của một biến kiểu String có thể chứa tối đa bao nhiêu kí tự :

• 255

• 256

• 1024

• 32000

Đoạn mã sau cho kết quả nào? Var  

       i: Integer;  

       s,a,b: Real;  

    Begin  

        b:=0.5;  

        a:=1;  I :=1; s:=1;  

    Repeat  

       s:=s+a;  

       i:=i+1;  

       a:=1/i;  

    Until  a<=b ;  

    Writeln ( ' Tong  = ', S );  

    End.

• S=0.01

• S=13.5

• S=2

• S=0

Đoạn mã sau in kết quả nào? Var  

       i: integer;  

       S,a,b: Real;  

    Begin  

        b:=0;  

        a:=1;  I :=100; S:=2;  

    While a>b Do  

    Begin    

    S:=S+a;  

    i:=i+1;  

     a:=1/(i*i);  

    End ;  

    Writeln ( ' Tong  = ', S );  

    End.  

• S=10

• S=0

• Vòng lặp vô hạn

• S=1

Đoạn mã sau in kết quả nào? Var  

             Tong, I: Integer;  

    Begin  

             Tong:=0;  

              I:=5;  

    Repeat  

             Tong:= Tong+I;  

              I:=i+1;  

    Until i>5;  

    Writeln('Tong=',tong);  

    End.  

• 11

• 5

• 8

• 0

Giá trị biến Tong là bao nhiêu ? Label 3;  

    Var  

             Tong, I: Integer;  

    Begin  

             Tong:=0;  

              I:=1;    

    3: Tong:= Tong+i;  

       i:=i+5;  

       if i<=2 Then Goto 3;  

             Writeln('Tong =', Tong);  

    End.  

• Tong=1

• Tong= 2

• Tong=3

• Tong=4