câu 1 viết ct tính gt biểu thức\(\sqrt{x+\sqrt{ }x+.....+\sqrt{ }x}\) n và x từ bàn phím.
câu 2 viết ct xét xem 1 số có tổng các ước <= nó vs n từ bàn phím
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.
Những câu hỏi liên quan
4 tháng 5 2021
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
4 tháng 5 2021
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
16 tháng 4 2021
Câu 2:
2) Ta có: \(M=\dfrac{2\sqrt{x}-9}{x-5\sqrt{x}+6}-\dfrac{\sqrt{x}+3}{\sqrt{x}-2}\)
\(=\dfrac{2\sqrt{x}-9}{\left(\sqrt{x}-2\right)\left(\sqrt{x}-3\right)}-\dfrac{\left(\sqrt{x}+3\right)\left(\sqrt{x}-3\right)}{\left(\sqrt{x}-3\right)\left(\sqrt{x}-2\right)}\)
\(=\dfrac{2\sqrt{x}-9-x+9}{\left(\sqrt{x}-2\right)\left(\sqrt{x}-3\right)}\)
\(=\dfrac{-x+2\sqrt{x}}{\left(\sqrt{x}-2\right)\left(\sqrt{x}-3\right)}\)
\(=\dfrac{-\sqrt{x}\left(\sqrt{x}-2\right)}{\left(\sqrt{x}-3\right)\left(\sqrt{x}-2\right)}\)
\(=\dfrac{-\sqrt{x}}{\sqrt{x}-3}\)
MN
16 tháng 4 2021
Câu 2 :
Gọi : vận tốc của người đi chậm là : x (km/h) ( x > 0 )
Vận tốc của người đi nhanh : x + 4 (km/h)
Vi : người đi chậm đến muộn hơn : 45 phút \(=\dfrac{3}{4}\left(h\right)\)
Khi đó :
\(\dfrac{36}{x}-\dfrac{36}{x+4}=\dfrac{3}{4}\)
\(\Leftrightarrow\left[36\cdot\left(x+4\right)-36x\right]\cdot4=3x\cdot\left(x+4\right)\)
\(\Leftrightarrow3x^2+12x-144=0\)
\(\Leftrightarrow\left[{}\begin{matrix}x=12\left(n\right)\\x=16\left(l\right)\end{matrix}\right.\)
20 tháng 3 2022
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
20 tháng 3 2022
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
21 tháng 3 2022
uses crt;
var a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1);
writeln(t2);
readln;
end.
1 tháng 5 2023
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.