Viết chương trình nhập 2 số nguyên dương a và b

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.

Code c:

#include

int main()

{

            int x,y,a,b;

            do

            {

            printf("Nhap a,b = ");

            scanf("%d%d",&a,&b);

            }

            while (a<=0|| b<=0);

            x=a;

            y=b;

            while(a!=b)

            {

            if(a>b)

            a-=b;

            else

            b-=a;

            }

            printf("Uoc chung lon nhat la %d",a);

            printf("\nBoi chung nho nhat la %d",(x*y)/a);

}

program tinh;

uses crt;

var a,b,x,y,t:integer;

begin

clrscr;

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

write('Nhap b: ');    readln(b);

writeln(a,' + ',b,'=',a+b);

writeln(a,' - ',b,'=',a-b);

writeln(a,' x ',b,'=',a*b);

writeln(a,' : ',b,'=',a/b:2:2);

x:=a;   y:=b;

t:= y mod x;
while t <> 0 do
   Begin
      t:= x MOD y;
      x:= y;
      y:= t;
   End;

writeln('UCLN(',a,',',b,')=',x);

write('Cac uoc duong cua |',a,'+',b,'| la: ');

for t:=1 to abs(a+b) do

  if abs(a+b) mod t=0 then write(t,' ');

readln

end.

$\text{Bài 1 :}$

$\text{program sksk;}$

$\text{uses crt;}$

$\text{var a, b : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap so nguyen a :');readln(a);}$

$\text{write('nhap so nguyen b :');readln(b);}$

$\text{if a > b then writeln(a,' lon hon ', b);}$

$\text{if a < b then writeln(a,' be hon ', b);}$

$\text{if a = b then writeln(a,' bang ', b);}$

$\text{readln}$

$\text{end.}$

$\text{Bài 2 :}$

$\text{program sksk;}$

$\text{uses crt;}$

$\text{var a : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap so nguyen duong :');readln(a);}$

$\text{if a mod 2 = 0 then writeln(a,' la so chan')}$

$\text{else writeln(a,' la so le');}$

$\text{readln}$

$\text{end.}$

Answers ( )

1. thanhthuy

   0

   2021-07-11T23:50:29+00:00

   uses crt;
   var a,b,s:longint;
   begin
           clrscr;
           repeat
                   write(‘Nhap 2 so nguyen duong a,b: ‘);readln(a,b);
                   if (a<=0)and(b<=0) then writeln(‘NHAP LAI!’);
           until (a>0)and(b>0);
           write(‘Tong hai so la bao nhieu? Tong: ‘);readln(s);
           if s=a+b then write(‘Chuc mung! Ban da tinh dung!’)
           else write(‘Rat tiec! Ban da tinh sai. Ket qua: ‘,s);
           readln
   end.

3. bichlien

   1

   2021-07-11T23:50:48+00:00

   Program chuongtrinh;

   Uses crt;

   Var a, b, tong: Integer;

   Begin

           Clrscr;

           Write (‘Nhap gia tri cua so thu nhat:  ’);

           Readln (a);

           Write (‘Nhap gia tri cua so thu hai:  ’);

           Readln (b);

           Write (‘Ket qua ban tinh duoc la: ’);

           Readln (tong);

           If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’)

           else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b);

           Readln;

   End.