1/Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N ( với N nguyên dương đc nhập vào từ bàn phím) . Sau đó hãy viết Ctrinh pascal tương ứng cho từng thuật toán.
2/ viết Ctrinh xuất ra màn hình tổng bình phương những số lẻ từ 1 đến N. Với N là số tự nhiên đc nhập vào từ bàn phím
3/ hãy mô tả thuât toán tìm số tự nhiên N nhỏ nhất để tích các số tự nhiên từ 1 đến N lớn hơn 1000. Sau đó hãy viết Ctrinh Pascal tương ứng cho thuật toán đó
Uwaaaa! Các bạn giúp minm với, cô sắp chấm đề cương mà còn bi nhiêu! Huuu
2/
program tong_so_le;
uses Crt;
var i,N,S:integer;
A:array[1..N] ò integer;
begin
clrscr;
write(' nhap so phan tu cua day N : ' );
readln(N);
S:=0;
for i:=1 to N do
begin
write('nhap A[' , i ,']:');
readln(A[i]);
if A[i] mod 2=1 then S:S+A[i];
end;
write('tong cac so le:',S);
readln
end.
Lời giải :
Câu 1 :
program hotrotinhoc;
var i,n,tich,tong : integer;
begin
write('nhap n='); readln(n);
tich:=1; tong:=0;
for i:= 1 to n do
begin
tich:=tich*i;
tong:=tong+i;
end;
write('Tong la:',tong);
write('Tich la:',tich);
readln
end.
Lời giải :
program hotrotinhoc;
var tong,n,i :integer ;
begin
write('N='); readln(n);
tong:=0;
for i:= 1 to n do
if i mod 2=1 then tong:=tong+(i*i);
write('Tong binh phuong nhung so le la :',tong);
readln
end.
Bài 3 :
program hotrotinhoc ;
var tich,n,i : integer ;
begin
tich:=1;
while n <=1000 do
begin
n:=n+1;
tich:=tich*n ;
end;
write('N=',n);
write('Tich la:',tich);
readln
end.