Câu 1:

a) không hợp lệ. sửa:

Var chieucao:array[1..100] of integer;

b) không hợp lệ. sửa:

Var 20BT:array[1..100] of integer;

c) không nộp lệ. sửa:

For i:=1 to 50 do S:=S+i;

d) không hợp lệ. câu lệnh For giá trị đầu và giá trị cuối phải là số nguyên

sửa:

for i:=1 to 100 do S:=S+i;

Câu 2:

program ct;

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('tong nghich doa la:',s);

readln

end.

Câu 1:

a, Không hợp lệ: giới hạn phải đặt trong ngoặc vuông []

Var chieucao: array(1..100) of real;

-> Var chieucao: array[1..100] of real;

b, Không hợp lệ: giữa gía trị đầu và cuối phải là 2 chấm (..)

Var 20BT: array[1,100] of integer;

-> Var 20BT: array[1..100] of integer;

c, Không hợp lệ: Sau mỗi biến phải có 2 chấm (:)

For i=1 to 50 do S:=S+i;

-> For i:=1 to 50 do S:=S+i;

d, Không hợp lệ: Giá trị chỉ phần tử đầu và cuồi phải là số nguyên/Sau mỗi biến phải có 2 chấm (:)

For i:=1,1 to 40,2 do S=S+i;

Câu 2:

program tt;

uses crt;

var n,i: integer;

      S: longint;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

    S:=S+1/i;

end;

writeln(S);

readln;

end.