viết chương trình giải toán trên pascal

N

ngocbangngoc

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

tính tổng:
S=1 - 2 + 3 -4 + 5 -6 +....-100
S=[TEX]1 - \frac{1}{2} +\frac{1}{4}- \frac{1}{6}+......-\frac{1}{102}[/TEX]
2)
viết chương trình nhập số nguyên dương N và đếm số ước của N.

Cần mọi người giúp gấp lắm. đa tạ đa tạ.......... :M012:
 
1

11thanhkhoeo

bài 1
Mã:
s:=0;
For i := 1 to 100 do if i mod 2 = 0 then s:= s-i else s:=s+i;
Mã:
s:=1;
For i := 2 to 102 do 
begin 
        if i mod 4 = 0 then s:= s+1/i;
        if i mod 4 = 2 then s:= s-1/i;
end;


bài 2
Mã:
d:=0;
for i := 1 to n do if n mod i =0 then d :=d+1;
 
V

vao_lop_10

Bài 1 đây:
Mã:
uses crt;
var s1, i, a:integer;
s2: real;
begin
        clrscr;
        s1:= 0; s2:= 0; a:= 1;
        for i:= 1 to 100 do
                if i mod 2 = 0 then
                                begin
                                s1:= s1 - i;
                                s2:= s2 - 1/i;
                                end
                                else
                                begin
                                s1:= s1 + i;
                                s2:= s2 + 1/i;
                                end;
        write(s1,'          ',s2:10:10);
        readln
end.

Bài 2 :
Mã:
uses crt;
var N,i,uoc: integer;
begin
        clrscr;
        uoc:= 0;
        write('Nhap N: '); readln(N);
        for i:= 1 to N do
                if N mod i = 0 then uoc:= uoc + 1;
        write(N,' co ',uoc,' uoc');
        readln
end.
 
Last edited by a moderator:
Top Bottom