K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 11 2017

prgram ss;

uses crt;

var a,b:longint;

begin

write('Nhap so thu nhat');readln(a);

write('Nhap so thu hai');readln(b);

if a>b then write('So lon hon la: ',a)

else write('So lon hon la: ',b);

readln

end.

29 tháng 11 2017

bạn ơi thiếu rồi.bạn phải so sánh thêm a = b

19 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}

19 tháng 12 2021

Bài 3: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b;

cout<<a/b;

return 0;

}

5 tháng 5 2022

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

30 tháng 12 2022

Input: a,b

Output: max,min của hai số a,b

uses crt;

var bcnn,i,a,b:integer;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

13 tháng 10 2021

13 tháng 10 2021

Cách khác(Dùng bằng C++)

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b<<endl;

cout<<"Tich la:"<<fixed<<setprecision(2)<<a*b;

return 0;

}

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

12 tháng 5 2021

Câu 2:

Program nii;

Uses crt;

Var a,b,c,A:integer;

Begin

Write ('nhap a');

Readln (a);

Write ('nhap b');

Readln (b);

Write ('nhap c');

Readln (c);

A:=a;

If A<b then A:=b;

If A<c then A:=c;

Write ('Ket qua',A);

Readln;

End.

12 tháng 5 2021

Câu 1

Program ntg;

Uses crt;

Var A,x,y:integer;

Begin

Write ('nhap x');

Readln (x);

Write ('nhap y');

Readln ('y');

A:=x+y;

Write ('Ket qua',A);

Readln;

End.

 

Đề thiếu rồi bạn