Program luy_thua;

Uses crt;

Var a, i, n: integer;

Begin

Write('Nhap co so a: '); readln(a);

Write('Nhap so mu n: '); readln(n);

For i:=1 to n do a:=a*a;

Writeln('Gia tri a luy thua n la: ', a);

Readln;

End.

Program kthkII;

uses crt;

var i, n, s, N : integer;

A: array[1..100] of integer;

begin

write('Nhap so nguyen N: '); readln(N);

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

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

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

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('Tong cac so la: ', s);

readln;

End.

lần thứ nhất i=1+1=2, j=2+1=3; k=3+3=6

lần thứ hai \(i=2+1=3;j=3+1=4;k=6+4=10\)

Lần thứ ba \(i=3+1=4;j=4+1=5;k=10+5=15\)

Lần thứ tư \(i=4+1=5;j=5+1=6;k=15+6=21\)

Lần thứ năm \(i=5+1=6;j=6+1=7;k=21+7=28\)

vì qua lần thứ năm này giá trị của i vẫn thỏa mãn (đúng) với điều kiện nên câu lệnh tiếp tục thực hiện:

\(i=6+1=7;j=7+1=8;k=28+8=36\)

Qua lần lặp này giá trị của i>6 nên không thỏa mãn điều kiện, câu lệnh kết thúc.

Giá trị của i, j, k được in ra màn hình lần lượt bằng 7, 8, 36

Với đoạn lẹnh này chương trình sẽ thực hiện 3 vòng lặp và kết thúc giá trị của S=21.

Lần thứ nhất:

n=n+3=1+3=4; S=S+n=0+4=4;

Lần thứ hai:

\(n=n+3=4+3=7;S=S+n=4+7=11;\)

Lần thứ ba:

\(n=n+3=7+3=10;S=S+n=11+10=21;\)

đến lần này S=21 mà 21>18 không thỏa mãn điều kiện nên lệnh lặp không được thực hiện, câu lẹnh kết thúc, S=21 lặp 3 lần.

program chan_le;

uses crt;

Var so1, so2: integer;

Begin

write('Nhap so thu nhat: '); readln(so1);

write('Nhap so thu hai: '); readln(so2);

if (so1 mod 2 = 1) and (so2 mod 2 = 0) then

write('Ban vua nhap vao mot so chan va mot so le')

else if (so1 mod 2 = 0) and (so2 mod 2 = 0)

then write('Ca hai deu la so chan')

else if (so1 mod 2=1) and (so2 mod 2 = 1)

then write('Ca hai deu la so le');

readln;

end.

câu lênh điều kiện dạng đủ là:

if <điều kiện> then <câu lệnh> else <câu lệnh> ;

ví dụ:

if 5<8 then write('so 5 nho hon') else ('so 8 nho hon');

if 6<3 then write('so 6 nho hon') else('so 3 nho hon');

program phan_tu;

uses crt;

var i, n: integer;

s: real;

a: array[1..100] of real;

begin

write('Nhap do dai cua day so: '); readln(n);

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

s:=0

for i:=1 to n do s:=s + a[i];

for i:=1 to n do if a[i] < s then writeln('a[',i,']=', a[i]);

readln;

end.

Đầu tiên ta nháy đúp chuột lên biểu tượng phần mềm Finger Break Out trên màn hình nền. Rồi nhấn phím Enter hoặc nháy vào nút OK để chuyển sang màn hinh làn việc chính của phần mềm. Tiếp đến có thể chọn các mức khó khác nhau của trò chơi tại ô Level. Rồi nháy chọn nút start để bắt đầu luyện gõ.

Bài làm:

chúc bạn học tốt!