giúp mk với ạ 
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
9 tháng 12 2023
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.
GN
1
17 tháng 12 2021
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;
}
27 tháng 12 2021
#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;
}
1 tháng 1 2021
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.
BJ
0
30 tháng 10 2021
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.
