Question

viết chương trình nhập vào 1 số nguyên n từ bàn phím, in ra màn hình tổng các số lẻ nhỏ hơn hoặc bằng n

Answer 1

Program Tinh_Tong;

uses crt;

var s,n,i: integer;

begin

clrscr;

write('nhap so n =');

readln

s:= 0;

For i:= 1 to n do

if i mod 2 <>0 then s:= s+i;

writeln('tong la : ' , s);

readln

end.

Answer 2

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

s:=s+i;

writeln(s);

readln;

end.

Answer 3

uses crt;

var n,i,tong:integer;

begin

clrscr;

write('nhap so nguyen n:');readln(n);

for i:=1 to n do

if i mod 2<>0 then tong:=tong+i;

write('tong cac so le nho hon hoac bang n la:',tong);

readln;

end.

* có thể thay "if i mod 2<>0" bằng

"if i mod 2=1", cách nào cũng đúng nhé bn

Answer 4

Program Tinh_Tong;

uses crt;

var s,n,i: integer;

begin

clrscr;

write('nhap so n =');

readln

s:= 0;

For i:= 1 to n do

if i mod 2 <>0 then s:= s+i;

writeln('tong la : ' , s);

readln

end.