Viết chương trình Pascal tìm hai số nguyên biết tổng của chúng = 10, tích của chúng = 16

0 bình luận về “Viết chương trình Pascal tìm hai số nguyên biết tổng của chúng = 10, tích của chúng = 16”

1. program bai_giai;

   uses crt;

   var x:integer;

   begin

         clrscr;

         writeln(‘Hai so do la: ‘);

         for x:=1 to 10 do

               if x*(10-x)=16 then writeln(x,’ ‘,y);

         readln;

   end.

   Bình luận

2. program tim_hai_so_nguyen;
   uses crt;
   var x,y:integer;
   begin
   clrscr;
   for x:=1 to 10 do
   begin
   y:= 10-x;
   if x*y=16 then
   writeln(‘so thu nhat la:’,x,’so thu hai la:’,y);
   end;
   readln;
   end.

   Bình luận