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.

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.

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;

}

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.

6 tháng 12 2021

đang thi mik ko giúp đc, xin lỗi nha

6 tháng 12 2021

Bh bạn thi xong vậy ạ 

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.

30 tháng 10 2021

Thế còn í b ạ