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.

uses crt;
var a,b,c,ucln,bcnn,i,min:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
ucln:=1;
for i:=1 to min do
if (a mod i=0) and (b mod i=0) and (c mod i=0) then
begin
if ucln<i then ucln:=i;
end;
bcnn:=a*b*c;
for i:=a*b*c downto 1 do
if (i mod a=0) and (i mod b=0) and (i mod c=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Uoc chung lon nhat: ',ucln);
writeln('Boi chung nho nhat: ',bcnn);
readln;
end.

15 tháng 3 2022

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

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

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

while a < > b do

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

write ( ' UCLN la :' , a );

readln

end.

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

16 tháng 9 2021

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

write('Nhap b:'); readln(b);

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

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

14 tháng 2 2022

làm ơi cíuuuu

 

14 tháng 2 2022

Tham Khảo:

3 tháng 4 2021

program tim_chu_so;

uses crt;

var i,n,csln:longint;

k:integer;

a:array[1..1000]of longint;

st:string;

begin

clrscr;

write('nhap so n:');readln(n);

str(n,st);

val(st,a[i]);

csln:=a[1];

for i:=1 to length(st) do

if csln<a[i] then csln:=a[i];

writeln('chu so lon nhat cua so ',n,' la:',csln);

readln;

end.

Câu 1: 

uses crt;

var n,i,d,x,y,max:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if max<x then max:=x;

end;

writeln('Chu so lon nhat la: ',max);

readln;

end. 

6 tháng 4 2023

Bài 1:

Program HOC24;

var a: array[1..1000] of integer;

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

6 tháng 4 2023

Bài 2:

Program HOC24;

var a: array[1..1000] of integer;

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

13 tháng 12 2020

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

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

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

ucln:=1;

if a<b then begin

                        for i:=1 to a do

                           if (a mod i=0) and (b mod i=0) then                                             begin

                                     if ucln<i then ucln:=i;            

                               end;    

                   end else begin

              for i:=1 to b do

                  if (a mod i=0) and (b mod i=0) then

                      begin

                           if ucln<i then ucln:=i;

                      end;      

       end;

bcnn:=a*b;

for i:=a*b-1 downto 1 do  

   if (i mod a=0) and (i mod b=0) then      

       begin

             if bcnn>i then bcnn:=i;      

       end;

writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

13 tháng 12 2020

cảm ơn

#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
    if (b==0) return(a);
    return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
    cin>>a>>b;
    if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b);
    else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b);
    return 0;
}

 

11 tháng 3 2022

bằng free pascal chị