Bài 1: Nhập vào một dãy số bất kỳ tính tổng của dãy số đó, việc tính tổng chỉ dừng lại khi nhập vào một số 0.
Program Vi_du1;
Var
a,tong:real;
Begin
tong:=0;
Write('nhap vao so a=');readln(a);
While a<>0 do Begin
Tong:=tong+a;
Write('nhap vao so a=');readln(a);
end;
Writeln('Tong cua day so la:',tong:6:2);
readln End.
Bài 2: Tìm UCLN của hai số nguyên a và b theo thuật toán.
- Nếu a>b thì thay a=a-b
Ngược lại b:=b-a. Quá trình được lặp lại cho đến khi a= b thì dừng lại.
Bạn đọc tự vẽ sơ đồ Chương trình.
Program USCLN;
Var
a,b:integer;
Begin
Write(' Nhap vao so a=');readln(a);
Write(' Nhap vao so b=');readln(b);
While a<>b do If a>b then
a:=a-b Else b:=b-a;
Writeln('USCLN la:',a);
Readln End.