Question

Bài 1: Viết chương trình Pascal nhập số tự nhiên n xuất ra màn hình 

+ Các số chẵn từ 1 đến n

+ Đếm bao nhiêu số chẵn từ 1 đến n 

+ Tính tổng các số chẵn đó 

+ Xét tổng đó là số chẵn hay lẻ ?

 

Answer 1

Program HOC24;

var i,d,n: integer;

t: longint;

begin

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

write('Cac so chan tu 1 den ',n,' la: ');

t:=0; d:=0;

for i:=1 to n do

if i mod 2=0 then

begin

write(i,' ');

d:=d+1;

t:=t+i;

end;

writeln;

writeln('Co ',d,' so chan tu 1 den ',n);

writeln('Tong cac so chan do la: ',t);

if t mod 2=0 then write('Tong do la chan') else ('Tong do la le');

readln

end.