Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n. GIÚP VỚI !!!

0 bình luận về “Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n. GIÚP VỚI !!!”

1. uses crt;

   var n,d,i,t,max,x:longint;

   y:integer;

   st:string;

   begin

   clrscr;

   repeat

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

   until n>0;

   str(n,st);

   d:=length(st);

   writeln(‘So chu so cua ‘,n,’ la: ‘,d);

   t:=0;

   max:=0;

   for i:=1 to d do 

     begin

   val(st[i],x,y);

   t:=t+x;

   if max<x then max:=x;

   end;

   writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,t);

   writeln(‘Chu so lon nhat cua ‘,n,’ la: ‘,max);

   readln;

   end.

   Bình luận

2. program sochan;

   uses crt;

   var n,i,d:integer;

   begin

        write(‘Nhap n: ‘);   readln(n);

        write(’20 so chan tiep theo la: ‘);

        d:=0;   i:=n+1;

        while d<=20 do

             begin

                  if i mod 2=0 then

                       begin

                            d:=d+1;

                            write(i,’ ‘);

                       end;

                  i:=i+1;

             end;

        readln;

   end.

   Bình luận