Giúp em gấp mn ơi Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( với n được nhập từ bán phím) sao cho 15 số được in trên một dòng
Bài 10: Cấu trúc lặp
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
inc(dem);
write(i:4);
if dem=15 then writeln;
end;
readln;
end.
Đúng 1
Bình luận (2)
18 tháng 3 2021 lúc 14:32
cho một hình chữ nhật ABCD,cạnh AB bằng a,cạnh BC=b.a,b là các số nguyên dương trong khoảng từ 1 đến 100.
một điểm M chạy trong đoạn BC với BM=X. X là số nguyên dương trong khoảng từ 0 đến b . Điểm N chạy trong đoạn CD với CN=x
tính giá trị lớn nhất và nhỏ nhất của diện tích tam giác AMN và X khi M,N lưu động
26 tháng 3 2021 lúc 20:00
Bài 4. (4 điểm): Hai số tự nhiên được gọi là Nguyên tố tương đương nếu chúng có chung các ước
số nguyên tố. Ví dụ các số 75 và 15 là nguyên tố tương đương vì cùng có các ước nguyên tố là 3
và 5. Cho trước hai số tự nhiên N, M. Hãy viết chương trình kiểm tra xem các số này có là
nguyên tố tương đương với nhau hay không.
uses crt;
var i,n,m,k,d:integer;
{---------------chuong-trinh-con-tim-ucln--------------------}
function ucln(x,y:integer):integer;
var t:integer;
begin
while y<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
ucln:=x;
end;
{------------chuong-trinh-con-kiem-tra-so-nguyen-to-------------------}
function nt(b:longint):boolean;
var j:longint;
begin
nt:=true;
if (b=2) or (b=3) then exit;
nt:=false;
if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(b)) do
begin
if (b mod j=0) or (b mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
{---------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('Nhap N: '); readln(N);
write('Nhap M: '); readln(M);
d:=0;
k:=ucln(N,M);
for i:=1 to k do
if nt(i) then d:=d+1;
if d>0 then writeln('2 so nay tuong duong voi nhau')
else writeln('2 so nay khong tuong duong voi nhau');
readln;
end.
Đúng 0
Bình luận (1)
uses crt;
var i,n,m:integer;
a,b:array[1..100]of integer;
function nt(n:integer):boolean;
begin
if n<2 then nt:=false;
for i:=2 to n div 2 do
if n mod i=0 then nt:=false;
end;
function nttd(n,m:integer):boolean;
var i,j,k,d,dem,s:integer;
a,b:array[1..100]of integer;
begin
nttd:=false;
d:=0;
for j:=1 to n do
if (nt(j))and(n mod j=0) then
begin
inc(d);
a[d]:=j;
end;
dem:=0;
for k:=1 to n do
if (nt(k))and(m mod k=0) then
begin
inc(dem);
b[dem]:=k;
end;
s:=0;
if d=dem then for i:=1 to d do if a[i]=b[i] then
inc(s);
if s=d then nttd:=true else nttd:=false;
end;
BEGIN
clrscr;
write('nhap n,m:');readln(n,m);
if nttd(n,m) then writeln(n,' va ',m,' la nguyen to tuong duong')
else writeln(n,' va ',m,' khong phai la nguyen to tuong duong');
readln;
END.
Đúng 0
Bình luận (0)
uses crt;
Var M,N,d,i,luun,luum:integer;
Function USCLN(m,n: integer): integer;
Var r: integer;
Begin
luun:=n;luum:=m;
While n<>0 do
begin
r:=m mod n; m:=n; n:=r;
end;
USCLN:=m;
End;
function nttd:integer;
begin
d:=USCLN(M,N); i:=2;
While d<>1 do
begin
If d mod i =0 then
begin
While d mod i=0 do d:=d div i;
While M mod i=0 do M:=M div i;
While N mod i=0 do N:=N div i;
end;
Inc(i);
end;
If M*N=1 then Write(luum,' va ', luun,' la so nguyen to tuong duong.')
Else Write(luum ,' va ',luun ,' khong phai la so nguyen to tuong duong.');
end;
BEGIN
clrscr;
Write('Nhap M,N:'); Readln(M,N);
nttd;
Readln;
END.
Đúng 0
Bình luận (0)
Viết chương trình in bảng cửu chương từ 2 đến 9 ra màn hình,bố trí 4 bảng đầu ở nửa trên ,4 bảng sau ở nửa dưới.giúp e đc k ạ e cần gấp😿
uses crt;
var i,j:integer;
begin
clrscr;
for i:=2 to 9 do
begin
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
end;
readln;
end.
Đúng 0
Bình luận (0)
Mng giúp e tin ạ
1:
#include <bits/stdc++.h>;
using namespace std;
int main()
{
long dem,n;
cout<<"Nhap n="; cin>>n;
dem=0;
while (n<1e9)
{
n=n*2;
dem=dem+1;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Giúp e vs
Giúp e ạ
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long long i,n,t;
cout<<"Nhap n="; cin>>n;
t=0;
for (i=1; i<=n; i++);
t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
For i=1 to n do S=S+i;
While i<=n do
begin
S=S+i;
end;
Đúng 0
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
double s;
int a,i;
int main()
{
cin>>a;
s=1/a*1.0;
for (i=1; i<=100; i++)
s=s+1/(a*1.0+i*1.0);
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình kiểm tra số nguyên N bất kỳ nhập vào từ bàn phím là số âm hay số dương.
Program Tin_hoc;
Uses Crt;
Var N: Integer;
Begin
Write('Nhap so nguyen N');
Readln(N);
If N>0 then write(' So do la so duong ');
If N<0 then write(' So do la so am ');
If N=0 then write(' So do khong la so am va so duong');
Readln;
End.
Đúng 0
Bình luận (0)
Program Tin_hoc;
Uses Crt;
Var N: Integer;
Begin
Write('Nhap so nguyen N');
Readln(N);
If N>0 then write(' So do la so duong ');
If N<0 then write(' So do la so am ');
If N=0 then write(' So do khong la so am va so duong');
Readln;
End.
Đúng 0
Bình luận (0)