Question

Bài tập : Câu lệnh for...do...

Viết chương trình nhập vào N, từ bàn phím ( 5 < n < 10000 )

a. Tính tổng các số từ 1 đến N

b. Tính tổng các số chẵn từ 1 đến N

c. Tính tổng các số lẻ từ 1 đến N

d. Tính tích các số từ 1 đến N ( 5 < N < 15 )

Giúp mình với ! Ngày mai mình thực hành rồi !!!!

Nếu trễ cũng không sao !

Answer 1

var n,i:integer;
s:real;
begin
repeat
write('n=');readln(n);
until (5<n) and (n<10000);
s:=0;
for i:=1 to n do s:=s+i;
write(' Phan a: ',s:0:1);
writeln;
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write(' Phan b: ',s:0:1);
writeln;
for i:=1 to n do
if i mod 2=1 then s:=s+i;
write(' Phan c: ',s:0:1);
writeln;
s:=1;
for i:=1 to n do
if (n>5) and (n<15) then s:=s*i;
write(' Phan d: ',s:0:1);

writeln;
readln;
end.

Answer 2

a)uses crt;

var i,n,t:longint;

begin

write('nhap n:');readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln('tong tu 1 den ',n,' la ',t);

end.