Viết chương trình nhập số nguyên dương N. Đếm và tính tổng các số chẵn. Đếm và tính tổng tất cả các số từ 1 đến N.

Question

giangnguyen · Answer

uses crt;

var n,i,s,j:integer;

begin

clrscr;

write(‘Nhap n: ‘);readln(n);

for i:=1 to n do begin

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

j:=j+1 end;

writeln(‘Co ,j,’ so chan’);

writeln(‘Tong: ‘,s);

readln

end.

0 bình luận về “Viết chương trình nhập số nguyên dương N. Đếm và tính tổng các số chẵn. Đếm và tính tổng tất cả các số từ 1 đến N.”