VCT pascal tìm UCLN và BCNN của 3 số a,b,c nhập từ bàn phím
please help me!
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
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;
}
VCT nhập 3 số a,b,c từ bàn phím. Tìm số lớn nhất trong 3 số đó
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.
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
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.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Nhập từ bàn phím 2 số nguyên dương a,b (1<a<b<1000)
a) In ra UCLN của 2 số a,b
b) In ra BCNN của 2 số a,b
VCT in ra màn hình các số chính phương trong khoảng từ m đến n(m<n). N,m được nhập từ bàn phím (pascal)
Program HOC24;
var m,n,i: integer;
Begin
write('Nhap N: '); readln(n);
write('Nhap M: '); readln(m);
for i:=m to n do if sqr(trunc(sqrt(i)))=i then write(i,' ');
readln
end.
viết chương trình nhập 2 số tự nhiên m, n từ bàn phím, in ra màn hình. a) tất cả các ước chung của m và n. b)_ UCLN,BCNN của m và n
#include <bits/stdc++.h>
using namespace std;
long long n,m,x,i;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
cin>>m>>n;
x=ucln(m,n);
for (i=1; i<=x; i++) if (x%i==0) cout<<i<<" ";
cout<<endl;
cout<<"Uoc chung lon nhat="<<x<<endl;
cout<<"Boi chung nho nhat="<<(m*n)/x<<endl;
return 0;
}
viết chương trình :Tìm UCLN của 2 số a và b (a và b là các số nhập từ bàn phím).
các bạn có thể trả lời nhanh đc ko??? mk đag cần gấp.
program UCLN;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('Moi ban nhap so a:=');readln(a);
writeln('Hay nhap so b:='):readln(b);
While a<>b do
if (a>b) then a:=a-b else b:=b-a;
write('Uoc chung lon nhat la ',a or b);
readln;
end.
program dam_nhau_khong;
uses crt;
var h,k:integer;
begin
clrscr;
writeln('nhap so h: '); readln(h);
writeln('nhap so k: '); readln(k);
while (h<>k) do
if (h>k) then h:=h-k else k:=k-h;
writeln('uoc chung lon nhat la: ',h);
end.
1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.
2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b
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.
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
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('Boi chung nho nhat la: ',bcnn);
readln;
end.
VCT đếm các phần tử là số nguyên dương lẻ của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
Bài 2: VCT tính tích các phần tử là số chẵn của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình