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 x,y,z:real;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
z:=abs(1-sqr(x))+abs(1-sqr(y));
writeln('Z=',z:4:2);
readln;
end.
1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s);
readln;
end.
2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s:4:2);
readln;
end.
Program hotrotinhoc;
var d,n,i: byte;
a: array[1..100] of byte;
begin
write('N='); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 2=0 then inc(d);
end;
write('Mang vua nhap la :');
for i:=1 to n do write(a[i],' ');
writeln;
write('So phan tu chan la : ',d);
readln
end.
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
Các bạn ơi câu hỏi trên là 2 nhân với 10 mũ 9 nhá ! Mình cần đáp án trước 8h sáng ngày mai !
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('tong binh phuong cac chu so cua ',n,' la: ', t);
readln;
end.
1:
uses crt;
var a,b,bt:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bt:=(sqr(a)+sqr(b))/2;
writeln('bieu thuc=',bt:4:2);
readln;
end.
2:
uses crt;
var s,v,t:integer;
begin
clrscr;
write('nhap thoi gian xe chay:'); readln(t);
write('nhap van toc cua xe:'); readln(v);
s:=v*t;
writeln('quang duong xe chay duoc la: ',s:4:2);
readln;
end.
program tinhp;
uses crt;
var x,n,i: integer;
s: real;
begin
clrscr;
write('Nhap n:'); readln(n);
write('Nhap x:'); readln(x);
s:=sqrt(x);
for i:=1 to n do
s:= sqrt (x+s);
writeln('tong s=',s:6:2);
readln;
end.
\(\dfrac{14}{7}hay\dfrac{17}{7}?\)
\(\dfrac{14}{7}\)