Bài 10: Cấu trúc lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

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.

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

nguyễn an phát
Xem chi tiết
nguyễn an phát
17 tháng 4 2021 lúc 20:41

nguyễn an phát
17 tháng 4 2021 lúc 21:36

nguyễn an phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 22:50

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.

nguyễn an phát
3 tháng 6 2021 lúc 9:22

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.

nguyễn an phát
3 tháng 6 2021 lúc 9:24

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.

Thảo Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:02

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.

Mai thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:09

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;
}

 

Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:08

#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;

}

Nguyễn Hoàng Minh
25 tháng 10 2021 lúc 8:14

For i=1 to n do S=S+i;

While i<=n do

begin

S=S+i;

end;

Nguyễn Lê Phước Thịnh
26 tháng 10 2021 lúc 23:40

#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;

}

Thương Nhi
Xem chi tiết
Kiêm Hùng
2 tháng 11 2021 lúc 19:38

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.

Nguyên Khôi
2 tháng 11 2021 lúc 19:48

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.