Thực hiện yêu cầu sau:
Hãy viết 5/8;25/30 và thành các phân số có mẫu số chung là 24.
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.
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
s:=1;
if n mod 2 = 0 then
begin
for i:=2 to n do
begin
s:=s*i;
i:=i+2;
end;
end
else
begin
for i:=1 to n do
begin
s:=s*i;
i:=i+2;
end;
write('Tong la ',s:10:2);
readln;
end.
Uses crt;
Var
n,t:longint;
BEGIN
Read(n);
While n<>0 do
Begin
t:=t+n mod 10;
n:=n div 10;
End;
Write(t);
Readln;
END.
Refer:
Program baitap;
Uses crt;
Var n,x,T:integer;
Begin
Clrscr;
T:=0;
Write('n='); Readln(n);
While ( N <> 0 ) do
Begin
x := n mod 10;
n := n div 10;
T := T + x;
End;
Writeln('T=',T);
Readln
End.
Sau lần chia đôi đầu tiên, pham vi tìm kiếm còn lại n/2 số, sau khi chia đôi lần thứ hai, dãy còn lại n/4 số, sau khi chia đôi lần thứ dãy còn lại n/8, …sau khi chia đôi lần k dãy còn lại n/2.mũ k. Kết thúc khi 2 mũ k sấp xỉ n.
a: \(\dfrac{1+x}{6}=\dfrac{2}{3}\)
=>x+1=4
hay x=3
\(\dfrac{48}{56}=\dfrac{6}{\left(x-3\right)}\)
=>6/x-3=6/7
=>x-3=7
hay x=10
b: Đề thiếu rồi bạn
\(\dfrac{5}{8}\text{=}\dfrac{5\times3}{8\times3}\text{=}\dfrac{15}{24}\)
\(\dfrac{25}{30}\text{=}\dfrac{25:5}{30:5}\text{=}\dfrac{5}{6}\text{=}\dfrac{5\times4}{6\times4}\text{=}\dfrac{20}{24}\)
\(\dfrac{5}{8}=\dfrac{5x3}{8x3}=\dfrac{15}{24}\\ \)