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.

7 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

6 tháng 3 2023

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+1/(i*(i+1));

write('S= ',s:6:2);

readln

end.

7 tháng 3 2023

Còn lệnh while...do mình làm như thế nào ạ?

#include <bits/stdc++.h>
using namespace std;
long long n,dem,i;
int main()
{

freopen("bl1.inp","r",stdin);

freopen("bl1.out","w",stdout);
    cin >> n;
    for( i = 2; i <= n; i++)
    {
        dem = 0;
        while(n % i == 0)
           {
              ++dem;
              n=n/i;
           }
        if(dem)
        {
            cout<<i;
            if (dem>1) cout <<"^"<<dem;
            if (n>i){
                cout <<" * ";
            }
        }
    }
  return 0;
}

7 tháng 3 2023

*while..do

Program HOC24;

var T: longint;

i,X: integer;

begin

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

i:=2; t:=1;

while i<=X do

begin

t:=t*i;

i:=i+2;

end;

write('T= ',t);

readln

end.

6 tháng 3 2023

*for..do

Program HOC24;

var T: longint;

i,X: integer;

begin

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

t:=1;

for i:=1 to X do if i mod 2=0 then t:=t*i;

write('T= ',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

int n,A[1000],i,dem=0,t=0;

int main()

{

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

for (int i=1; i<=n; i++)

{

if (A[i]%3!=0) dem++;

if (A[i]%4==2) t+=A[i];

}

cout<<dem<<endl;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int A[1000],n,i;

int main()

{

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

sort(A+1,A+n+1);

for (int i=1; i<=n; i++)

cout<<A[i]<<" ";

cout<<endl;

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

cout<<A[i]-A[i-1]<<endl;

return 0;

}

18 tháng 3 2023

em ko hiểu cho lắm

uses crt;

var i,t,a,b:integer;

begin

clrscr;

readln(a,b);

t:=0;

for i:=a to b do

t:=t+i;

write(t);

readln;

end.

6 tháng 3 2023

program UocChung;

var

      a, b, i: integer;

      uocchung: array[1..100] of integer;

      n: integer;

begin

      write('Nhap a=');

      readln(a);

      write('Nhap b=');

      readln(b);

      n := 0;

      for i := 1 to 100 do

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

            begin

                  uocchung[n] := i;

                  n := n + 1;

            end;

      write('Uoc chung cua ', a, ' va ', b, ' la: ');

      for i := 0 to n-1 do

             write(uocChung[i], ' ');

      readln;

end.