Program HOC24;

var s: string;

begin

s:='Ha Noi - thu do Viet Nam';

delete(s,9,7);

write(s);

readln

end.

Program HOC24;

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

i,n: byte;

t: longint;

begin

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Cac phan tu chan trong mang la: ');

for i:=1 to n do

if a[i] mod 2=0 then

begin

write(a[i],' ');

t:=t+a[i];

end;

writeln;

write('Tong cac phan tu chan trong day la: ',t);

readln

end.

Lợi ích của việc sử dụng khai báo biến mảng:
– Rút gọn việc viết chương trình.
– Tiết kiệm nhiều thời gian và công sức viết chương trình.
– Lưu trữ và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả.

Program HOC24;

var i,n,d,d1: integer;

begin

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

for i:=1 to n do 

if i mod 2=0 then d:=d+1 else d1:=d1+1;

writeln('Co ',d,' so chan');

write('Co ',d,' so le');

readln

end.

for i:= 1 to n do
begin
  
end;

*Note: i là biến đếm đc khởi tạo với giá trị bắt đầu là 1. Vòng lặp sẽ thực hiện các câu lệnh bên trong begin và end với giá trị của i tăng lên 1 mỗi lần lặp cho đến khi i đạt giá trị n. Sau đó, các câu lệnh bên ngoài vòng lặp sẽ được thực hiện tiếp.

VD: nếu ta muốn in ra một dãy số từ 1 đến 10, ta có thể sử dụng câu lệnh lặp với số lần biết trước như sau:

for i:= 1 to 10 do
begin
  writeln(i);
end;

kết quả sẽ ra từ 1 đến 10

b. SETPENSIZE [M N]

b?

a/

b/

giúp mình nhanh với mọi người

là các lệnh logo đúng ko z