vieets ctr Nhập vào số nguyên n, in ra chữ số nhỏ nhất của n.Lấy ví dụ: n = 3421 => 1

0 bình luận về “vieets ctr Nhập vào số nguyên n, in ra chữ số nhỏ nhất của n.Lấy ví dụ: n = 3421 => 1”

1. Program NN;
   Uses crt;
   Var St: string;
       k: char;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap so: ‘); Readln(St);
           k:=’9′;
           For i:=1 to length(St) do
                   If St[i]<k then k:=St[i];
           Write(‘Min = ‘,k);
           Readln
   End.

   Bình luận

2. var s:string;min:char;i:longint;

   begin

   readln(s);

   min:=s[1];

   for i:=1 to length(s) do 

   if s[i]<min then min:=s[i];

   write(min);

   readln

   end.

   Bình luận