Giúp mk với !!! Cho đoạn chương trình sau tìm giá trị của i For i:=1 to 10 do Begin…end; 15/07/2021 Bởi Eden Giúp mk với !!! Cho đoạn chương trình sau tìm giá trị của i For i:=1 to 10 do Begin…end;
program VD ; uses crt ; var N,i :integer ; begin write(‘Nhap so N’) ; readln(N) ; writeln ; write(‘Bang nhan’,N) ; writeln ; for i:=1 to 10 do begin GotoXY (5,WhereY) writeln(N ,’x’ ,i:2 ,’=’ ,N*i:3) ; writeln ; end ; readln ; end. Bình luận
program VD ;
uses crt ;
var N,i :integer ;
begin
write(‘Nhap so N’) ; readln(N) ;
writeln ;
write(‘Bang nhan’,N) ;
writeln ;
for i:=1 to 10 do
begin
GotoXY (5,WhereY)
writeln(N ,’x’ ,i:2 ,’=’ ,N*i:3) ;
writeln ;
end ;
readln ;
end.