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 s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
uses crt;
var s1:real;
i,n,s2,a:integer;
begin
clrscr;
readln(n);
s1:=1;
for i:=1 to n do s1:=s1*i;
writeln(s1:0:0);
s2:=0;
a:=10;
repeat
s2:=s2+a;
a:=a+1;
until s2>=10000;
writeln(s2);
readln;
end.
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=2;
while i<=12 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
a)Var z:array[1..1000] of longint;
n, i,S:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin S:=S + z[i];
End;
Writeln('Tong chan la ',S);
End.
b)
Var z:array[1..1000] of longint;
n, i, chan, le:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
If chan>le then writeln('So phan tu chan trong mang nhieu hon')
else writeln('So phan tu le trong mang nhieu hon');
End.
Cậu thử kiểm tra lại nhé!
b)
program hotrotinhoc;
var s: real;
i,n: byte;
function t(x: byte): longint;
var j: byte;
t1: longint;
begin
t1:=1;
for j:=1 to x do
t1:=t1*j;
t1:=t;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/t(i);
write(s:1:2);
readln
end.
c) Đề em ghi sai rồi thế này với đúng :
\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)
program hotrotinhoc;
var t: real;
n,i: byte;
begin
readln(n);
t:=0;
for i:=1 to n do
t:=t+i/(i*i);
write(t:1:2);
readln
end.
uses crt;
var s:real;
a:integer;
begin
clrscr;
a:=10;
while a<=100 do
begin
s:=s+a/(a+1);
inc(a);
end;
writeln('S=',s:4:2);
readln;
end.
Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=10 to 100 do
s:=s+i/(i+1);
write('S=',s:1:2);
readln
end.