Question

Cho tệp SN.INP
- Dòng 1 chứa số nguyên n
-Dòng 2 chứa n số nguyên
Yêu cầu: a) đọc và tính tổng các số chẵn ghi vào tệp SN.OUT

b) đọc và tính tổng các số lẻ ghi vào tệp SN.OUT
c) đọc và ghi vào tệp dãy số nguyên đó theo chiều ngược lại vào tệp SN.OUT
p/s: bạn nào giúp mình giải bài này với ạ. Mình đang cần gấp ạ

Answer 1

Lời giải :

program hotrotinhoc ;

cont a ='sn.inp' ;

b ='sn.out' ;

var

f: text ;

i,n,S,T : integer ;

begin

assign(a,f);

reset(f);

read(f,n);

close(f);

assign(b,f);

rewrite(f);

S:=0;

for i:=1 to n do

if i mod 2= 0 then S:=S+i;

writeln(f,'Tong cac so chan la',S);

for i:= 1 to n do

if i mod 2=1 then T:=T+i ;

writeln(f,'Tong cac so chan la ',T);

close(f);

end.