0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
6069
5207
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
2996
2560
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!!!
Hãy giúp mọi người biết câu trả lời này thế nào?
A ơi sang team em đc ko ạ !
2996
2560
anh có team rồi nha.
Thì anh cứ vào team em ik ạ
2996
2560
làm gì à?
Em cần anh vào team để cày cùng team bọn em ạ
vs cả anh vào team bọn em thì bọn em cx vui hơn
Bảng tin
0
52
0
hay đấy