Hãy sử dụng câu lệnh lặp while -.do , viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên n với n được nhập từ bàn phím

Question

Hãy sử dụng câu lệnh lặp while .....do , viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên n với n được nhập từ bàn phím

hiennhi · Answer

program BT;

uses crt;

var n,i: integer;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

write(‘Cac so le <= ‘,n,’: ‘);

i:=1;

while i<=n do

begin

if i mod 2<>0 then write(i,’ ‘);

i:=i+1;

end;

readln

End.

anhthu · Answer

program tong_le;

uses crt;

var s,i,n:integer;

begin

clrscr;

write(‘nhap n=’);

readln(n);

s:=0;

i:=1;

while i<=n do

begin

if i mod 2<>0 then

s:=s+i;

i:=i+1;

end;

write(‘s=’,s);

readln;

end.

0 bình luận về “Hãy sử dụng câu lệnh lặp while -.do , viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên n với n được nhập từ bàn phím”