2, Viết chương trinh tính tổng các số lẻ.(Không sử dụng lệnh lặp mà sử dụng công thức)
3, Viết chương trinh tính tổng các số chẵn.(Không sử dụng lệnh lặp mà sử dụng công thức)
2, Viết chương trinh tính tổng các số lẻ.(Không sử dụng lệnh lặp mà sử dụng công thức)
3, Viết chương trinh tính tổng các số chẵn.(Không sử dụng lệnh lặp mà sử dụng công thức)
Bài 2:
program kaito;
uses crt;
var n, s: integer;
begin
clrscr;
write(‘Nhap vao so nguyen n: ‘); readln(n);
if n mod 2 = 0 then s:=(n*((n-2)/2+1))/2;
else s:=((n+1)*((n-1)/2+1))/2;
writeln(‘Tong cac so le tu 1 den ‘,n,’ la: ‘,s);
readln;
end.
Bài 3:
program kaito;
uses crt;
var n, s: integer;
begin
clrscr;
write(‘Nhap vao so nguyen n: ‘); readln(n);
if n mod 2 = 0 then s:=((n+2)*((n-2)/2+1))/2;
else s:=(n*((n-2)/2+1))/2;
writeln(‘Tong cac so chan tu 1 den ‘,n,’ la: ‘,s);
readln;
end.
CHÚC BẠN HỌC TỐT!!!
2) uses crt;
var n : integer;
t : real;
begin clrscr;
repeat write(‘Nhap so tu nhien n :’); readln(n); until n mod 2 =1 ;
t:=(((n-1)/2+1)*(n+1))/2;
write(‘Tong cac so le :’, t:0:0);
readln
end.
3) uses crt;
var n : integer;
t : real;
begin clrscr;
repeat write(‘Nhap so tu nhien n :’); readln(n); until n mod 2 =0 ;
t:=(((n-1)/2+1)*(n+1))/2;
write(‘Tong cac so chan :’, t:0:0);
readln
end.