Question

CÂU LÊNH LẶP TIẾT 43

BÀI TẬP

CÂU 1: viết chương trình tính tổng bình phương: S = 1^2 + 2^2 + . . . + n^2 , với n là số
nguyên dương được nhập từ bàn phím.
Câu 2:Viết chương trình in ra tất cả các ước của một số n (Với n là số nguyên được nhập
từ bàn phím)
*************************************************************

CÂU LÊNH LẶP TIẾT 44
Câu 1: viết và chạy chương trình : tính tổng A = 1 + 1/2 + 1/3 + ...+1/n

, với n là số tự nhiên

được nhập từ bàn phím.
Câu 2: viết và chạy chương trình : tính n! Với n là số tự nhiên nhập từ bàn phím

:(( em không có máy tính để tải phần mềm "Free Pascal" nên mọi người giúp em với ạ, em cần nộp gấp ấy ạ, em cảm ơn!

Answer 1

Câu lệnh lặp Tiết 43

Câu 1:

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+sqr(i);

writeln('Ket qua la: ',s);

readln;

end.

Câu 2:

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

Câu lệnh lặp Tiết 44

Câu 1:

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('Ket qua la: ',s:4:2);

readln;

end.

Câu 2:

uses crt;

var i,n,gt:longint;

begin

clrscr;

write('nhap n='); readln(n);

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln(n,'!=',gt);

readln;

end.