câu 1:tính tổng số lẻ nhỏ hơn hoặc bằng N.N nhập từ bàn phím (dùng thêm if và mod). câu 2:tính tổng S=1+1/2+1/3+…+1/100 (gợi ý dùng while do và for

câu 1:tính tổng số lẻ nhỏ hơn hoặc bằng N.N nhập từ bàn phím (dùng thêm if và mod).
câu 2:tính tổng S=1+1/2+1/3+…+1/100 (gợi ý dùng while do và for do).

0 bình luận về “câu 1:tính tổng số lẻ nhỏ hơn hoặc bằng N.N nhập từ bàn phím (dùng thêm if và mod). câu 2:tính tổng S=1+1/2+1/3+…+1/100 (gợi ý dùng while do và for”

  1. Program cau1;

    Uses crt;

    Var s,n,i: integer;

    Begin

    Clrscr;

    Write(‘nhap n = ‘); readln(n);

    For i:=1 to n do if i mod 2 = 1 then write s:=s+i;

    Write(‘tong cac so le nho hon’,n,’ la ‘, s);

    Readln;

    End.

    Program cau2;

    Uses crt;

    Var i,S: integer;

    Begin 

    Clrscr;

    S:=0;

    i:=1;

    While i<=100 do

                    Begin

                   S:=S+1/i;

                   i:=i+1;

                   End;

    Writeln(‘tong so can tim la ‘, t :0:2 );

    Readln;

    End.

    Zw

    Bình luận

Viết một bình luận