Viết chương trình Free pascal để giải bài toán sau (dùng câu lệnh For-do) Tìm tất cả các số có 3 chữ số sao cho chữ số hàng đơn vi bằng tích chữ s

0 bình luận về “Viết chương trình Free pascal để giải bài toán sau (dùng câu lệnh For-do) Tìm tất cả các số có 3 chữ số sao cho chữ số hàng đơn vi bằng tích chữ s”

1. MÌnh nghĩ là còn nhiều hơn nhưng bạn cứ nghi vào đi

   program timso;

   uses crt;

   var i:integer;

         a,b,c:byte;

   begin

   clrscr;

   for i:=100 to 999 do

    begin

     a:=i div 100;

     b:=i div 10;

     b:=b mod 10;

     c:=i mod 10;

     if c=a*b then write(i,’ ‘);

    end;

   readln

   end.

   Chúc bạn làm tốt

   Bình luận

2. program timso;

   uses crt;

   var i:integer;

         a,b,c:byte;

   begin

   clrscr;

   for i:=100 to 999 do

    begin

     a:=i div 100;

     b:=i div 10;

     b:=b mod 10;

     c:=i mod 10;

     if c=a*b then write(i,’ ‘);

    end;

   readln

   end.

   Bình luận