a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10

-kết thúc,s=10

chương trình:

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

lập chương trình đệ quy giải bài toán:

Có ba cọc trên vòng tròn, được đánh số theo thứ tự chiều kim đồng hồ là 1, 2, 3.Có N đĩa kích thước từ lớn đến nhỏ, được sắp xếp chồng đĩa nhỏ nằm trên đĩa lớn tại cọc 1.

Yêu cầu: Cần chuyển N đĩa từ cọc 1 sang cọc 3 theo các quy tắc:

- Mỗi bước chỉ chuyển được một đĩa.

- Trong quá trình chuyển đĩa, chỉ cho phép đĩa nhỏ đặt lên trên đĩa lớn.

Dữ liệu Một số nguyên duy nhất N (0<N <=15)

Kết quả gồm nhiều dòng, trong đó mỗi dòng mô tả một bước chuyển đĩa gồm bắt đầu là số liệu cọc xuất phát, tiếp theo là số hiệu cọc chuyển đến, ghi cách nhau ít nhất một dấu trắng.

Ví dụ

input

2

output

1 21 32 3

lưu ý:code bài này chỉ dành cho HSG và có thể dùng bất cứ NNLT nào tuỳ thích. UwU

lập chương trình đệ quy giải bài toán:

Có ba cọc trên vòng tròn, được đánh số theo thứ tự chiều kim đồng hồ là 1, 2, 3.Có N đĩa kích thước từ lớn đến nhỏ, được sắp xếp chồng đĩa nhỏ nằm trên đĩa lớn tại cọc 1.

Yêu cầu: Cần chuyển N đĩa từ cọc 1 sang cọc 3 theo các quy tắc:

- Mỗi bước chỉ chuyển được một đĩa.

- Trong quá trình chuyển đĩa, chỉ cho phép đĩa nhỏ đặt lên trên đĩa lớn.

Dữ liệu Một số nguyên duy nhất N (0<N <=15)

Kết quả gồm nhiều dòng, trong đó mỗi dòng mô tả một bước chuyển đĩa gồm bắt đầu là số liệu cọc xuất phát, tiếp theo là số hiệu cọc chuyển đến, ghi cách nhau ít nhất một dấu trắng.

Ví dụ

input

2

output

1 21 32 3

lưu ý:code bài này chỉ dành cho HSG và có thể dùng bất cứ NNLT nào tuỳ thích. UwU

uses crt;

var i,sokm:integer;

tong:real;

begin

write('nhap so km: ');readln(sokm);

for i:=1 to n do

begin

if i=1 then tong:=tong+5000;

else if tong>=2 and tong<=5 then  tong:=tong+4500;

else tong:=tong+3500;

end;

if sokm>120 then tong=(tong/10)*9;

writeln('so tien la ',tong,' dong');

readln;

end.