viết chương trình nhập từ bàn phím một số N sau đó đảo ngược số tự nhiên N

0 bình luận về “viết chương trình nhập từ bàn phím một số N sau đó đảo ngược số tự nhiên N”

1. uses crt;

   var n,i:integer;

   st:string;

   begin

   clrscr;

   write(‘nhap n=’); readln(n);

   str(n,st);

   for i:=length(st) downto 1 do

   write(st[i]);

   readln;

   end.

   đấy 5 sao nha^_^

   Bình luận

2. program bai1;

   var n,t:longint;

   s:real;

   begin

   write(‘N= ‘);readln(n);
   t:=n;
   while n<>0 do
   begin
   S:=S*10+n mod 10;
   n:=n div 10;
   end;
   If S=t then writeln(‘so doi xung’)
   else writeln(‘khong doi xung’);
   readln;
   end.

   vote 5 sao và cám ơn nha

   cho mình hay nhất

   Bình luận