Program HOC24;
uses crt;
var s: real;
i,n,j,l: integer;
begin
clrscr;
s:=2014;
for i:= 1 to 2012 do
for j:= 4 to 2015 do
for l:=2 to 2013 do
s:=s+(i*j)/(l*(l+1));
write('S = ',s:6:2);
Readln;
end.
Program HOC24;
uses crt;
var s: real;
i,n,j,l: integer;
begin
clrscr;
s:=2014;
for i:= 1 to 2012 do
for j:= 4 to 2015 do
for l:=2 to 2013 do
s:=s+(i*j)/(l*(l+1));
write('S = ',s:6:2);
Readln;
end.
Cho biết kết quả câu lệnh sau: For i:=1 to 10 do if i mod 2=0 then write(i:4); *
a.1 2 3 4 5 6 7 8 9 10
b.2 4 6 8 10
c.1 3 5 7 9
d.4 8
Bài 1: Viết chương trình cho bài toán sau (sử dụng câu lệnh For...do và While...do)
a) 1+2+3+4+5+6+7+8+9
b) 2+4+6+8+10+12+14
c) 3+5+7+9+11+13+15
Câu 38: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?
For i:=1 to 10 do write (i,’ ‘);
A. 1 2 3 4 5 6 7 8 9 10 B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách D. Không đưa ra kết quả gì
Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra kết quả gì?
For i := 1 to 10 do Write (i,' ');
A. 1 2 3 4 5 6 7 8 9 10
B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách
D. Không đưa ra kết quả gì
Viết chương trình với số lần lặp chưa biết trước: a) 1+3+5+...+2n b) 2+4+6+...+(2n-1)
bài 1)viết chương trình tính các biểu thức sau:
a) (5-2*3)/2
b) (15*4-8)*3
c) (15 div 2) mod 3
d) ((245 div 10) div 3) mod 2
giúp mik với ạ:>>
1 .Cho biết kết quả của biểu thức sau (21 mod 3) div 2+ (15 div 4)
A. 10 B.4 C.5 D. 3
2. Cho biết kết quả của biểu thức sau 20 mod (3 div 2) +(15 mod 4)
A.4 B.10 C.3 D.5
(GIÚP MK NHÉ)
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
. Giả sử ta có biến mảng A lần lượt có các giá trị của phần tử sau: a Giá trị 5 8 9 5 3 5 Chỉ số 1 2 3 4 5 6 Ta có câu lệnh S:=0; S:=S+a[1]+a[6] thì giá trị S sẽ bằng bao nhiêu: A. 8 B. 9 C. 10 D. 11