Question

nhập 1 số n in ra các số từ 1 đến n kết thúc có dấu ! giữa các số được in ra và kí tự có 1 khoảng trống

Answer 1

var

n,i:integer;

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write( i ,' ! ');

end;

readln

end.

end;

Answer 2

var

i,n:integer;

begin

write('nhap n : ');

readln(n);

for i:= 1 to n do

write(i,' ! ');

readln

end.

{ cau tren sai roi nha ban }