viết theo câu lệnh Pascal tính tổng S sau : S2 = 2+4+6+.....+N(chẵn ) vs số nguyên đc nhập từ bàn phím .
2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n:');readln(n);
while n mod 2<>0 do
begin
write('nhap lai n. N la so chan:');readln(n);
end;
s:=0;
for i:=1 to n do if(i mod 2=0)then s:=s+i;
write('s=',s);
readln
end.
uses crt;
var i,N,S : integer ;
begin
clrscr;
write('nhap N ='); realdn(N);
S:=0
if i:=2 to N do
if i mod 2 =0 then S:=S+i ;
writeln('S=',S);
readln;
end.
