Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số chẵn và là bội của 5. Thông báo kết quả ra màn hình.
Program bt_3;
Uses crt;
Var a: array[1..100] of integer;
Dem, Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap so phan tu, n=’);
Readln (n);
for i := 1 to n do
begin
writeln(‘nhap gia trij phan tu thu ’,i,’ =’);
readln(a[i]);
end;
Dem:=0;
Tong:=0;
For i:=1 to n do
If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then
begin
Dem:= Dem+1;
Tong:= Tong+a[i];
end;
writeln(‘Dem la:’,Dem);
Writeln(‘Tong la:’,Tong);
Readln
End.
Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?
Cho giá trị a=25, b=10, c=6, k=3. Hãy xác định giá trị của biểu thức A:
A := Sqrt(a) + b div k >= a mod b + c
(Tính cụ thể từng bước)
Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i < 5 do
Begin
if I mod 2 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần
Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị true?
Trong NN lập trình Pascal, biểu thức số học nào sau đây là không hợp lệ:
Cho biết kết quả của biểu thức (2*(45 div 3) +12) mod 5 là bao nhiêu?
Câu lệnh y:= (((x - 2)*x - 3)*x - 4)*x - 5; tính giá trị của biểu thức nào?
Xét biểu thức logic: (n mod 100 > 10) or (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị sai?
Với lệnh nào sau đây dùng để in giá trị M là kiểu số thực ra màn hình với độ rộng là 5 và có 2 chữ số phần thập phân?