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:array[1..10000]of integer;
i,n,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
1C
2: ((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))
1C
2: ((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(1/sqr(a)+1/sqr(b):4:2);
readln;
end.
Bài 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
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
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
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int n,i;
double s;
int main()
{
cin>>n;
s=1;
for (i=2; i<=n; i++)
{
if (i%2==0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecison(2)<<s;
return 0;
}
1)
var i,n:longword; S:extended;
begin
read(n);
for i:=1 to n do
S:=S+1/i;
write('S=',S:0:2); //In ra giá trị xấp xỉ của S với 2 chữ số thập phân
end.
Var i : integer; S : real;
Begin
Read(S);
S := 0
For i := 1 to n do S := S+1/(i*i)
Write (S);
Readln;
End.
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/(i*i);
write('Tong la ',s:10:2);
readln;
end.