minh cung dang hoi cau nay . theo minh dem thi la 12 hinh 

\(\frac{5}{39}\)

program bai1;

var a:array[1..5] of longint;

i,z,q,n:longint;

begin

repeat

write('N= ');

readln(n);

end;

for i:=1 to n do

begin

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

readln(a[i]);

end;

s1:=0;s2:=0;

for i:=1 to n do

if a[i] mod 2=0 then s1:=s1+a[i]

else s2:=s2+a[i];

write(S1= ',s1,....);

readln

end.

sawpsxeeps tăng dần

program bai1;

var a:array[1..5] of longint;

i,z,q,n:longint;

begin

repeat

write('N= ');

readln(n);

end;

for i:=1 to n do

begin

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

readln(a[i]);

end;

for i:=1 to n-1 do

for q:=i+1 to n do

if a[i]>a[q] then

begin

z:=a[i];

a[i]:=a[q];

a[q]:=z;

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

readln

end.

program bai1;

var a:array[1..100] of longint;

s:real,i,n:longint;

begin

repeat

write('N= ');

readln(n);

until n>0;

for i:=1to n do

begin

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

readln(a[i]);

end;

s:=0;

for i:=1o n do

s:=s+1/i;

write('S= ',s);

readln

end.

So hoc sinh khoi 5 la:

          50:2/3=75(em)

                         Dap so :75 em

Câu 2:

program bai1;

var n,i,s:longint;

begin

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

s:=0;

for i:=1to n do

if n mod i=0 then s:=s+1;

if s=2 then wirte(n,' la so nguyen to')

else write('Khong phai la so nguyen to');

readln

end.

Câu 1:

Cú pháp: While điều kiện do hệ lệnh;

Hoạt động:

(1) Kiểm tra điều kiện:

(2) Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và chuyển sang câu lệnh tiếp theo trong chương trình. Nếu điều kiệnĐÚNG, thực hiện câu lệnh và quay lại bước 1.

Giống: đều là xâu kí tự

#:Char lưu trữ 1 kí tự

String tối đa 255 kí tự

s:=s+a[i];