Bài tập 1: Viết chương trình tính tổng S = 1+2+...+N.
Bài tập 2: Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào.
Bài tập 3: Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Hãy đếm xem có bao nhiêu số chẵn vừa được nhập vào.
Bài tập 4: Viết chương trình tính số Pi với độ chính xác Epsilon, biết:
Pi/4 = 1-1/3+1/5-1/7+...
Bài tập 5: Viết chương trình nhập vào số nguyên N. In ra màn hình tất cả các ước số của N.
Program Sara_Trang;
Uses crt;
Var N,i,S:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua N :'); Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Writeln('Ket qua la :',S);
Readln
End.
Program Sara_Trang;
Uses crt;
Var N,S,i,X : Integer;
Begin
Clrscr; S:=0;
For i:=1 To n Do
Begin
Write('Nhap so nguyen X= '); Readln(X);
S:=S+X;
End;
Writeln(‘Tong cac so duoc nhap vao la: ‘,S);
Readln
End.
Program Sara_Trang;
Uses crt;
Var N,dem : Integer;
Begin
Clrscr;
dem:=0;
Repeat
Write('Nhap vao mot so nguyen N= '); Readln(N);
If N MOD 2 = 0 Then dem:=dem+1;
Until N=0;
Writeln(‘Cac so chan duoc nhap vao la: ‘,dem);
Readln
End.
quá dễ
bài 1:
uses crt;
var s,i,n:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day---------------}
for i:=1 to n do
write(a[i]:4);
{------------tinh-tong---------------}
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong cua day A= ',t);
readln;
end.
bài 3:
uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]=0 then exit
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so luong so chan ban vua nhap vao la: ',dem);
readln;
end.
bài 4:
Uses Crt;
Const Epsilon=1E-4;
Var Pi,t:real;
i,s:Integer;
Begin
Pi:=4; i:=1; s:=-1;
t:=4/(2*i+1);
While t>Epsilon Do
Begin
Pi:=Pi+s*t;
s:=-s; i:=i+1;
t:=4/(2*i+1);
End;
Writeln('So Pi = ',Pi:0:4);
Readln;
End.
Bài 5:
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('cac uoc cua ',n,' la:');
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Program Sara_Trang;
Uses crt;
Var N,i,S:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua N :'); Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Writeln('Ket qua la :',S);
Readln
End.
