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
0 bình luận về “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”
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.
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.