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.

28 tháng 9 2021

var a,b:longint;
begin
readln(a,b);
if a>b then
  begin
    a:=1; b:=2;
  end; 
writeln(a,' ',b);
readln;
end.

Nếu có gì sai mong bạn thông cảm.

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

13 tháng 12 2020

Câu 1: B

Câu 2: B

Câu 3: C

Câu 4: C

12 tháng 12 2020

uses crt;

var a,b:integer;

begin

clrscr;

repeat

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

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

until (a>0) and (b>0);

if a>b then writeln(a,' la so lon hon')

else if a<b then writeln(b,' la so lon hon')

else writeln('Hai so bang nhau');

readln;

end.

31 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<max(a,b);

return 0;

}

uses crt;

var a:array[1..200]of integer;

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

 

 

11 tháng 4 2021

NB. Cách viết nào sau đây đưa ra màn hình giá trị các phần tử của mảng A?

A. Write(A[i]);  B. Write(A{i});    C. Write(A(i));    D. Write(A[‘i’]);

Chọn A

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.VDDữ liệu nhập vàoKết quả ra màn hình4266886633882)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.Dữ liệu nhập vào      Kết quả ra màn hìnhTYESAYESZYES1NO@NO 1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.VDDữ...
Đọc tiếp

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

0

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

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

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

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.