Tìm lỗi sai trong các chương trình sau
Tìm lỗi sai trong các chương trình sau: a. Program Tinh_Tong; Var i , n := Integer ; tong: Real ; BEGIN Write(' Nhap n : ') Readln(n) ; tong :=0 ; For i: 1 to n do t + 1/i ; Writeln (' Tong la : ', tong:8:2 ); Readln; END. b. Program Tinh_Tong; Var : n , i : Word ; S : Real ; BEGIN S = 0 ; For i := 1 downto 100 do S := S + 1/sqr(i) ; Writeln (' S = ', S:5:2) ; Readln’ END | |