viết chương trình tính tổng/tích các số chắn 1->n
S=2+4+6+...+n
help me pls :(((
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 x,lt:int64;
y,i:integer;
begin
clrscr;
readln(x,y);
lt:=1;
for i:=1 to y do
lt:=lt*i;
writeln(lt);
readln;
end.
uses crt;
var i,n,ln,x:integer;
begin
clrscr;
readln(n);
ln:=0;
for i:=1 to n do
begin
readln(x);
if ln<x then ln:=x;
end;
writeln(ln);
readln;
end.
Bài 2:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln(t);
readln;
end.
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if (n mod i=0) and (i%2=1) then write(i:4);
readln;
end.
uses crt;
var n,i,a:integer;
begin
clrscr;
n:=1;
a:=1;
while n<=100 do
begin
write(a:4);
a:=a+2;
n:=n+1;
end;
readln;
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write(s);
readln;
end.