1. viết chương trình nhập vào 1 số a. nếu a không phải là dạng số dương thì nhập lại, đến khi nào là số dương thì dừng.
2. Viết chương trình nhập vào 1 số a.Nếu a không phải là số chẵn thì nhập lại, đến khi nào là số chẵn thì dừng.
3. Viết chương trình tính tổng số nguyên 1-n, n là số nguyên nhập từ bàn phím. Sử dụng vòng lặp while…do
4. Tính S= 1+1/2=1/3+1/4…
Dừng khi 2-S<0.01
Bài 1:
program soduong;
uses crt;
var a:integer;
begin
clrscr;
repeat
write(‘Nhap a: ‘); readln(a);
writeln(‘Khong hop le(phai la so duong), nhap so khac.’);
until a>0;
write(a,’ la so duong’);
readln;
end.
Bài 2:
program soduong;
uses crt;
var a:integer;
begin
clrscr;
repeat
write(‘Nhap a: ‘); readln(a);
writeln(‘Khong hop le(phai la so chan), nhap so khac.’);
until a mod 2=0;
write(a,’ la so chan’);
readln;
end.
Bài 3:
program tinhtong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=1; S:=0;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
write(‘Tong cac so tu 1 den ‘,n,’ la: ‘,s);
readln;
end.
Bài 4:
program tinhS;
uses crt;
var i:integer;
s:real;
begin
clrscr;
S:=0; i:=1;
while 2-S>=0.01 do
begin
S:=S+1/i;
i:=i+1;
end;
write(‘S= ‘s:0:3);
readln;
end.
Câu 1:
uses crt;
var a: integer;
Begin
write(‘nhap a: ‘); readln(a);
while a<=0 do
begin
write(‘nhap lai a: ‘); readln(a);
end;
write(a,’ la so duong’);
readln
End.
Câu 2:
uses crt;
var a: integer;
Begin
write(‘nhap a: ‘); readln(a);
while a mod 2<>0 do
begin
write(‘nhap lai a: ‘); readln(a);
end;
write(a,’ la so chan’);
readln
End.
Câu 3:
uses crt;
var n,i: integer;
T: longint;
Begin
clrscr;
write(‘nhap n: ‘); readln(n);
T:=0; i:=1;
while i<=n do
begin
T:=T+i;
i:=i+1;
end;
write(‘Tong cac so tu 1 den ‘,n,’ la: ‘,T);
readln
end.
Câu 4:
uses crt;
var i:integer;
S:real;
Begin
i:=1;
while 2-S>=0.01 do
begin
S:=S+1/i;
i:=i+1;
end;
write(‘S = ‘,S:2:3);
readln
End.