Viết chương trình tính TỔNG các số CHẮN và LẺ từ 1 đến n với n nhập từ bàn phím.
Viết Chương Trình tính TỔNG các SỐ NGUYÊN LIÊN TIẾP
S= 1+2+……..+n
Với n là cá SỐ NGUYÊN DƯƠNG NHẬP TỪ BÀN PHÍM.
Viết chương trình tính TỔNG các số CHẮN và LẺ từ 1 đến n với n nhập từ bàn phím.
Viết Chương Trình tính TỔNG các SỐ NGUYÊN LIÊN TIẾP
S= 1+2+……..+n
Với n là cá SỐ NGUYÊN DƯƠNG NHẬP TỪ BÀN PHÍM.
bài 1:
program oken;
uses crt;
var n,i,le,chan:longint;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
if i mod 2 =0 then chan:=chan+i
else le:=le+i;
writeln(‘tong chan: ‘,chan);
writeln(‘tong le: ‘,le);
readln;
end.
bài 2:
program oken;
uses crt;
var n,i,tong:longint;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
ton:=tong+i;
writeln(‘tong: ‘,tong);
readln;
end.
Bài 1:
Program FNG;
Uses crt;
Var n,i,le,chan: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
If i mod 2 = 0 then inc(chan,i)
Else inc(le,i);
Writeln(‘Tong chan: ‘,chan);
Write(‘Tong le: ‘,le);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
s:=s+i;
Write(‘S = ‘,s);
Readln
End.