Question

mọi người giúp mình

Sửa lỗi chương trình sau

Program bang_cuu_chuong

Uses crt;

Var N: read;

      i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N)

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N')

readln

end.

Answer 1

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

Answer 2

đau tay

Answer 3

Chương trình sau khi sửa lỗi:

Program bang_cuu_chuong;

Uses crt;

Var N: real;

      i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N);

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N);

readln

end.