![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
program UCLN;
var
a, b, UCLN: integer;
begin
write('Nhập số a: ');
readln(a);
write('Nhập số b: ');
readln(b);
while a <> b do
begin
if a > b then
a := a - b
else
b := b - a;
end;
UCLN := a;
writeln('Ước số chung lớn nhất của ', a, ' và ', b, ' là ', UCLN);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long a,b,dem,i;
int main()
{
cin>>a>>b;
dem=0;
for (i=a; i<=b; i++)
if (i%2==0) dem++;
cout<<dem;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n,i,dem,k,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
dem=0;
cin>>k;
for (i=1; i<=n; i++)
if (a[i]%k==0)
{
cout<<a[i]<<" ";
dem++;
}
cout<<endl;
cout<<dem;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..100]of integer;
n,dem,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if i mod 2=1 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu o vi tri le la: ',t/dem:4:2);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln(s:4:2);
readln;
end.