Trong câu lệnh lặp kiểu dữ liệu kiểu dữ liệu của biến đếm là :

A, Real 

B, String 

C, If 

D,Var 

Đáp án:

B.String

Hok tốt

có thể bằng 2, 1 và 11

bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1  giọt

còn bằng 11 vì 1 thêm một số 1 nữa là 11

1+1=2

hok tốt

có hậu

mk sẽ lấy 3 câu trả lời nhanh nhất   sẽ đc mk k nha m.n

program tongduong;

uses crt;

var a:array[1..100] of integer;n,i,s:integer;

begin

clrscr;

s:=0;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;

for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];

write(' Tong cac so duong trong day la',s);

readln

end.

Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))

uses crt;

var a:array[1..249]of integer;

i,n,t,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<250);

hello

Có 3 vòng lặp

Giá trị cuối cùng của s=2

k cho mk nha

Màn hình sẽ in ra giá trị: 3 7

Giải thích:

Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.

k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.

For i:=1 to 5 do => có 5 vòng lặp, các vòng sẽ có gtri j,k tương ứng là:

vòng 1: 4,7

vòng 2: 6,13

vòng 3:8,21

vòng 4: 10,31

vòng 5: 12;43

Vậy writeln(j,k)  sẽ in ra 12 43. Ở đây vòng lặp không có điều kiện trước đó nên không cần xét nhé!

vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần

mỗi vòng lặp đều tăng  j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc

giá trị của j là\(j=0+2\times7=14\)

khoanh B

Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.

Program lap;

Var i: integer;

Begin

For i:=1 to 5 do write('A');

Readln

End.

Cho đoạn chương trình sau : For i := 1 to 10 do j:=j+2; write(j)

sau khi kết thúc đoạn chương trình trên , câu lệnh write (j ) ; được thực hiện bao nhiêu lần ?

A : 10 lần

B : 5 lần 

C : 1 lần

D :k thực hiện