VCT đếm xem có bao nhiêu số là Ước của 100 từ 10=>20

0 bình luận về “VCT đếm xem có bao nhiêu số là Ước của 100 từ 10=>20”

1. uses crt;
   var t,i: integer;
   begin
   clrscr;
   t:=0;
   for i:=10 to 20 do
   if i mod 10=0 then
   begin
    t:=t+i;
    write (i,’ ‘);
   end;
   writeln;
   writeln (t);
   readln;
   end.

   Bình luận

2. program uoccua100;

   uses crt;

   var d,i:integer;

   begin

   clrscr;

   d:=0;

   for i:=10 to 20 do

    if 100 mod i=0 then d:=d+1;

   write(‘Tu 10->20 co ‘,d,’ la uoc cua 100′);

   readln

   end.

   Bình luận