Question

[Nguyễn Đức Hòa]

Sử dụng chương trình pascal:

a,Viết chương trình nhập 1 số n từ bàn phím.

b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var t,n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

t:=0;

for i:=0 to n do 

  if i mod 2=0 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(dem,' ',t);

readln;

end.