_ viết chương trình pascal tính tổng các số chẵn từ 1 tới n (n là số nguyên được nhập từ bàn phím)
_ viết chương trình pascal tính tổng các số lẻ từ 1 đến n (n là số nguyên được nhập từ bàn phím)
_ viết chương trình pascal tính tổng các số chẵn từ 1 tới n (n là số nguyên được nhập từ bàn phím)
_ viết chương trình pascal tính tổng các số lẻ từ 1 đến n (n là số nguyên được nhập từ bàn phím)
Câu 1:
uses crt;
var i,n,s:longint;
begin
clrscr;
write(‘n= ‘);readln(n);
s:=0;
for i:=1 to n do if i mod 2=0 then inc(S,i);
writeln(‘Tong cac so chan tu 1 den n: ‘,s);
readln
end.
Câu 2:
uses crt;
var i,n,s:longint;
begin
clrscr;
write(‘n= ‘);readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then inc(S,i);
writeln(‘Tong cac so le tu 1 den n: ‘,s);
readln
end.
uses crt;
var n,i: integer;
s:longint;
begin
clrscr;
write( ‘ nhap n= ‘); readln(n);
if (n div 2)=0 then so hop le else so khong hop le and end;
s:=0;
for i:=1 to n do s:=s+i;
writeln ( ‘ tong cua ‘, n , ‘ so chan chia chia het cho 2 la s= ‘ , s);
readln
end.
cau 2
uses crt;
var n,i: integer;
s:longint;
begin
clrscr;
write( ‘ nhap n= ‘); readln(n);
if (n mod 2)<>0 then so hop le else so khong hop le and end;
s:=0;
for i:=1 to n do s:=s+i;
writeln ( ‘ tong cua ‘, n , ‘ so le khong chia chia het cho 2 la s= ‘ , s);
readln
end.