Cái này nhiều kiểu có thể viết sang dạng biểu thức của toán học, VD : \(\frac{a}{\frac{b}{\frac{c}{\frac{d}{\frac{e}{f}}}}}\) ; \(\frac{\frac{\frac{a}{b}}{\frac{c}{d}}}{\frac{e}{f}}\); \(\frac{\frac{a}{b}}{\frac{\frac{c}{d}}{\frac{e}{f}}}\);......

mè

tùy phần mềm nữa

tuỳ phần mềm nhé

Câu 1:

uses crt;
const fi='tinhoc11.out';
var a:array[1..49]of integer;
n,i:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
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
write(f1,a[i]:4);
close(f1);
readln;
end.

Câu 2:

const fi='dayso.pas';
fo='baitap.pas';
var a:array[1..100]of integer;
n,i,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 4=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.

Đáp án đúng : B

bt bạn

Rảnh quá ,không giống đâu

?

a)10000111

b)111101

a: 10000111

b: 111101

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.

Đáp án đúng : B