viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n, với n đc nhập từ bàn phím
2 câu trả lời
uses crt;
var n, i, s: integer;
begin
clrscr;
textcolor (white);
write ('nhap n: '); readln (n);
i:=0;
s:=0;
repeat
i:=i+1;
for i:=i to n do
if i mod 2 = 1 then
begin
s:=s+i;
end;
until i = n;
textcolor (lightblue);
writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s);
textcolor (green);
writeln ('========== HET ==========');
readln;
end.
uses crt;
var n, i, s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
i:=0;
s:=0;
repeat
i:=i+1;
for i:=i to n do
if i mod 2<>1 then
begin
s:=s+i;
end;
until i=n;
writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
