Question

1.Các tổ hợp phím khi lập trình với Free Pascal?
2.Cú pháp, cách thực hiện, tính số vòng lặp, tính giá trị của câu lệnh For..do và While..do
3.Sử dụng câu lệnh For … do và While … do để viết chương trình:
a) s=2+4+...+2n
b) s=1+2+3+...+n
c) s=1+3+5+…+(2n+1)
d) s=1+1/2+1/3+...+1/n
e) p=1.2.3...n
f) p=2.4...2n
Với n được nhập từ bàn phím

Answer 1

chỉ làm câu 3 thui đko?

 

Answer 2

b)Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do s:=s+i;
write('Tong cua cac so =',s);
readln;
end.

Answer 3

c)Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do if i mod 2<>0 then s:=s+i;
write('Tong cua cac so khong chia het cho 2=',s);
readln;
end.

Answer 4

Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do if i mod 2=0 then s:=s+i;
write('Tong cac so chia het cho 2=',s);
readln;
end.

 

Answer 5

d)Tham khảo!

uses crt;
var n,i:integer;  s:real;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
s:=0; i:=1;
while i<=n do begin
s:=s+1/i;i:=i+1;
end;
write('Tong cua cac so la:',s:2:3);
readln;
end.

Answer 6

e)Tham khảo!

uses crt;
var n,i:integer;  p:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
p:=1;
for i:=1 to n do p:=p*i;
write('Tich cua cac so=',p);
readln;
end.

Answer 7

f)Tham khảo!

uses crt;
var n,i:integer;  p:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
p:=1;
for i:=1 to n do if i mod 2=0 then p:=p*i;
write('Tich cua cac so chia het cho 2=',p);
readln;
end.