nhập số a,in ra số lớn gâp đôi a(a<=100)\ giúp mk gấp vs

0 bình luận về “nhập số a,in ra số lớn gâp đôi a(a<=100)\ giúp mk gấp vs”

1. program gap_doi;

   uses crt;

   var a:integer;

   begin

         clrscr;

         repeat

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

               if a>100 then writeln(‘NHAP LAI’);

         until n<=100;

         write(‘So lon gap doi ‘,a,’ la: ‘,2*a);

         readln;

   end.

   Bình luận

2. uses crt;

   var a:longint;

   begin

   clrscr;

   repeat readln(a);

   until a<=100;

   write(a*2);

   readln

   end.

   Bình luận