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 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(s);
readln;
end.
var i,n,s:longint;
begin
read(n); if n<2 then break;
for i:=3 to n do s:=s+i;
write(s);
end.
Var i,n:integer;
t:longint;
Begin
Write('n = ');readln(n);
i:=2;
While i<=n do
Begin
t:=t+i;
i:=i+1;
End;
Write('Tong la ',t);
Readln
End.
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
Var i,n,p:longint;
Begin
Write('Nhap n = ');readln(n);
i:=1;
p:=1;
While i<=n do
Begin
i:=i+1;
p:=p*i;
End;
Write('Tich la ',p);
Readln;
End.
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
uses crt;
var n,i,t,x:integer;
begin
clrscr;
readln(n);
t:=0;
while n>0 do
begin
x:=n mod 10;
if x mod 2=0 then t:=t+x;
n:=n div 10;
end;
writeln(t);
readln;
end.
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả
Viết chương trình pascal for to do để tính tổng S=2+4+6+...+n. N là số nguyên nhập từ bàn phím
program a1;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:'); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1;
i:=i+1;
end;
write('tong cua day n:',s);
readln;
end.