Sắp xếp các lệnh sau lại cho đúng
Var : i: integer;
S: longint;
Writeln(‘ Tính 100 số tự nhiên khác 0 s=:s ‘)
Program tính tổng;
S:=0
i:=1
End.
Begin
White i<=100 do
i := i+1
S:= S + 1
Readln;
begin
end;
Sắp xếp các lệnh sau lại cho đúng
Var : i: integer;
S: longint;
Writeln(‘ Tính 100 số tự nhiên khác 0 s=:s ‘)
Program tính tổng;
S:=0
i:=1
End.
Begin
White i<=100 do
i := i+1
S:= S + 1
Readln;
begin
end;
Program tính tổng;
Var : i: integer;
S: longint;
Begin
Writeln(‘ Tính 100 số tự nhiên khác 0 s=:s ‘);Readln;
S:=0
i:=1
White i<=100 do i := i+1
end;
begin
S:= S + 1
End.
Var : i: integer;
S: longint;
Begin
Writeln(‘ Tính 100 số tự nhiên khác 0 s=:s ‘);Readln;
S:=0
i:=1
White i<=100 do i := i+1
end;
begin
S:= S + 1
End.