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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TN
1
5 tháng 5 2021
uses crt;
var a,b:array[1..100]of integer;
n,i,j,ucln:integer;
begin
clrscr;
write('Nhap so cap:'); readln(n);
for i:=1 to n do
begin
readln(a[i],b[i]);
end;
for i:=1 to n do
begin
if a[i]<b[i] then
begin
ucln:=1;
for j:=1 to a[i] do
if (a[i] mod j=0) and (b[i] mod j=0) then
begin
if ucln<j then ucln:=j;
end;
end
else begin
ucln:=1;
for j:=1 to b[i] do
if (a[i] mod j=0) and (b[i] mod j=0) then
begin
if ucln<j then ucln:=j;
end;
end;
writeln('Uoc chung lon nhat cua cap thu ',i,' la: ',ucln);
end;
readln;
end.
9 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a[200],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
4 tháng 5 2021
uses crt;
const fi='so.txt';
var f1:text;
a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(a[i]:4);
close(f1);
readln;
end.
18 tháng 12 2021
Xin lỗi bạn nha muốn làm lắm nhưng bạn đang kiểm tra nên là tự làm nha!!
10 tháng 12 2020
1:
max:=a;
if max<b then max:=b;
2:
min:=a;
if min>b then min:=b;
3: if (x=sqr(a)+sqr(b)) and (a<0) then writeln(x);
if (x=sqrt(b)+sqrt(a)) and (a>0) then writeln(x);
ML
28 tháng 4 2022
Giống nhau: Đều là biến dùng để thực hiện cách lệnh trong chương trình
Khác nhau:
- Biến toàn cục:
+ Được khai báo ở chương trình chính
+ Phạm vi hoạt động trong toàn chương trình (kể cả chương trình con)
- Biến cục bộ:
+ Được khai báo ở chương trình con
+ Phạm vi hoạt động chỉ trong chương trình con
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.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,i,dem,s;
int main()
{
cin>>a>>b;
dem=0;
s=0;
for (i=a; i<=b; i++)
if (i%2==0)
{
dem++;
s=s+i;
}
cout<<dem<<" "<<s;
return 0;
}
Giúp em phần tự luận ạ em cảm ơn ạ
Program tuluan;
uses crt;
var xo,yo,xa,ya,xb,yb,T : real;
Begin
Clrscr;
Writeln('Nhap lan luot toa do 3 diem O,A,B:');
Readln(xo,yo,xa,ya,xb,yb);
T := (xa-xo)*(xb-xo)+(ya-yo)*(yb-yo);
Writeln('Tich vo huong cua 2 vecto OA va OB la:',T:8:2);
Readln;
End.