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.

11 tháng 10 2021

Program    tinh;

Uses          crt;

Var 

a,b,tong,hieu:Integer;

Begin

If a>=b then ( neu a lon hon hoac bang b thi thong bao );

Write('nhap so a la');readln(a)

Write('nhap so b la');readln(b)

tong:=a+b

hieu:a-b

Writeln('tong hai so la',tong);

Writeln('hieu hai so la';hieu);

Readln;

End.

15 tháng 11 2016

Program So_nguyen;

uses crt;

Var a,b,t:integer;

Begin

clrscr;

Writeln(' Nhap 2 so nguyen a va b:');

if a>b then t:= a-b;

if a<b then t:=b-a;

if a=b then t:=0;

Writeln(' Ket qua la',t);

Readln;

End.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

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

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

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

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

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Chọn C

#include <bits/stdc++.h>

using namespace std;

int a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t<<endl;

if (t%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

30 tháng 10 2019

Bạn phải cho đề mình mới hiểu thuật toán được.

Theo mình điểm sai là ý b. Vì chưa có điều kiện đã gán a[i]=min và i lại gán = a[i]

30 tháng 10 2019

Đề chỉ có vậy thôi đó bạn

26 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1;i<=n; i++)

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

27 tháng 10 2021

bn có thể viết thuật toán cho mik đc ko .thanks

 

 

1 tháng 10 2021

Mỗi quyển có dung lượng 3.25MB nên 4500 quyển có: 3.25 x 4500 = 14625MB

Đổi 14625MB= 14,625GB

Nếu muốn chứa 4500 quyên sách thì cần số phần trăm bộ nhớ máy đó là:

14,625 :16 x 100 = 91,42%