Program HOC24;

var i,j,tong: integer;

t: longint;

a: array[1..2024] of longint;

begin

i:=0; t:=1; a[1]:=1; j:=1;

while i<>2023 do

begin

t:=t+i;

i:=i+1;

j:=j+1;

a[j]:=t;

end;

tong:=0;

for i:=1 to 15 do tong:=tong+a[i];

writeln('Tong 15 so hang dau la: ',tong);

write('So hang thu 2023 la: ',a[2023]);

readln

end.

Program HOC24;

var i: byte;

a: array[1..10] of integer;

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Cac so da nhap: ');

for i:=1 to 10 do write(a[i],' ');

readln

end.

Program HOC24; 

var i,n: integer;

s: real;

begin

s:=0; n:=2;

while s<=0,785 do

begin

s:=s+1/n;

n:=n+2;

end;

write('S = ',s);

readln

end.

Sơ đồ mô tả thuật toán tính tổng của số 2 a và b

Input: a và b

Output: Tổng của a và b

Thuật toán liệt kê:

Bước 1: Nhập giá trị a và b

Bước 2: Tong← a + b

Bước 3: In ra Tong và kết thúc thuật toán

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+i;

write('S = ',s);

readln

end.

Đề thiếu bạn bổ sung nhé.

Không có đáp án nếu đáp án `D` là dấu " ; " ở giữa `5` và `10`.

Nếu bạn nhầm dấu " , " mà viết thành dấu " ; " thì chọn `D` nhé.

Phần tử trong mảng nha mn ghi nhầm

Program HOC24;

var i,n,d: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0;

for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;

write('Co ',d,' so khong chia het cho 5');

readln

end.

For i:=1 to 10 do; writeln ('A');

-> thừa dấu ; ở sau do

-> sửa: For i:=1 to 10 do writeln ('A');