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.
2 câu trả lời
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.
program ntn;
uses crt;
var n,i,dem,tongc,tong:longint;
begin
clrscr;
write('nhap n:');readln(n);
demc:=0;
tongc:=0;
for i:=1 to n do if(n mod 2=0)then begin inc(demc); tongc:=tongc+i; end;
writeln('dem cac so chan tu 1 den n la:',demc);
writeln('tong cac so chan tu 1 den n la:',tongc);
writeln('dem cac so tu 1 den n la:',n);
writeln('tong cac so tu 1 den n la:',(n+1)*n/2);
readln;
end.
