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 i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=1 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
a)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=1 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+2*n;
writeln('tong la:',tong);
readln;
end.
b)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=0 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+(2*n-1);
writeln('tong la:',tong);
readln;
end.
b) uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=2*n-1 do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
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.
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
*Câu lệnh lặp số lần biết trước
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
*Câu lệnh lặp với số lần chưa biết trước:
uses crt;
var i,t:integer;
begin
clrscr;
i:=1; t:=0;
while i<=100 do
begin
t:=t+i;
i:=i+2;
end;
writeln(t);
readln;
end.
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=0;
while i<=n do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.