Câu 1: Sau khi thực hiện chương trình sau, giá trị của biến j bằng bao nhiêu?
j := 0;
For i := 1 to 5 do j := j + 2;
cho thuật toán sau :
B1 : j ← 0 ;T←105;
B2 :Nếu T<20 thì qua B4;
B3 :j←j+5;T←T-j;
B4 :In ra kết quả T và j;
a) Hãy cho biết , khi thực hiện thuật toán trên , máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu.
b)Viết câu lệnh pascal thể hiện thuật toán trên.
Sau khi thực hiện xong đoạn chương trình dưới đây thì giá trị của a,b là bao nhiêu
A/ a:=2;b:=3
For i:=1 to 7 do b:=b+2:a:=a+2 ;
B/ a:=4 : b:6;
While a<6 do a:=a+1; b:= b+3 ;end;
C/ a:=1 ; b:=3;
For j:=2 to 4 do begin a:=a+1; b:=b+3; end;
viết trương trính nhập vào 2 số nguyên dương in ra màn hình từ 1->k vs k là tích của m và n
Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ?
Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím)
Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 5: viết ct nhập vào 1 dãy số 1 đến n , với n là sói nguyên đc nhạp từ bàn phím bé hơn hoặc bằng 100) và lần lượt thực hiện các coing việc sau:
A1, in ra dãy vừa nhập trên 1 hàng ngang , cách nhau 4 kí tự trống
A2, , in ra dãy vừa nhập trên 1 hàng dọc , cách nhau 4 kí tự trống
B, in ra màn hình gtri lớn nhất ,nhỏ nhất của dãy số
C, in ra tổng các phân tử của dãy?
hãy mô tả thuật toán bằng phương pháp liệt kê để tìm ra phần tử lớn nhất của 1 dãy bất kì trong số thực.
Hãy chỉ ra lỗi sai Var x:real; Begin For x:= 1 to 10 do Writeln('A');end. Giúp mình với nha:3
Viết CT nhập số từ bàn phím và in ra màn hình giá trị tuyệt đối
Các cao nhân giúp e vs plzzz...