Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Giải bởi Vietjack
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 5 = 0 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Xét biểu thức logic: (n >0) and (n mod 2 = 1). Khẳng định nào sau đây là đúng?
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?
Cho đoạn chương trình sau:
T := 0 ; i:=1;
WHILE i <= 10 DO
BEGIN
IF i mod 3 = 0 THEN T := T + i ;
i:=i+1;
END;
Sau khi thực hiện, T có giá trị?
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + i ;
Sau khi thực hiện, S có giá trị?
Cho đoạn chương trình sau:
T := 0 ;
FOR i := 1 to 10 DO
IF (i mod 3=0) and (i mod 5=0) THEN T := T + 1 ;
Sau khi thực hiện, T có giá trị?
Hãy viết các biểu thức toán học sau sang dạng tương ứng trong Pascal:
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
Xét khai báo biến sau:
Var x, y : real;
c : char;
i, j : byte;
Tổng bộ nhớ dành cho các biến đã khai báo là bao nhiêu byte?
Trong Pascal, cú pháp câu lệnh rẽ nhánh if-then dạng thiếu là:
Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so chan’) ELSE write(x,’la so le’);
Điều kiện là biểu thức logic nào dưới đây?
Cho biến thực x đã được gán giá trị 12.41235. Sau khi thực hiện câu lệnh Writeln(‘x=’ ,x:5:2); thì giá trị của biến x được in ra màn hình là:
