Question

Viết chương trình pascal nhập số tự nhiên N sau đó in ra màn hìn số N viết theo thứ tự ngược lại

Mong mọi người giúp mình với. Mình cảm ơn nhiều

Answer 1

var n, i: integer;

M: array[1..100] of real;

Begin

write('Nhap so n: ');readln(n);

for i:=1 to n do

Begin

write('M[',i,']='); readln(M[i]);

end;

for i:= n downto 1 do write(m[i],’ ,’);

readln

end.

Answer 2

uses crt;

var n,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

for i:=d downto 1 do

write(d[i]);

readln;

end.