Viết chương trình nhập vào từ bàn phím số nguyên dương m. In ra màn hình các số lẻ từ 0 tới m/2

Question

aihong · Answer

uses crt;   var m:integer;   begin   clrscr;   write('m= ');  readln(m);   for i:=1 to trunc(m/2) do     if i mod 2=1 then write(i);   readln   end.

cattien · Answer

program sole;

uses crt;

var m,i:integer;

begin

clrscr;

write(‘Nhap m: ‘);

readln(m);

write(‘Cac so le tu 0 den m/2 la: ‘);

for i:=1 to m div 2 do

if i mod 2=1 then write(i,’ ‘);

readln

end.

0 bình luận về “Viết chương trình nhập vào từ bàn phím số nguyên dương m. In ra màn hình các số lẻ từ 0 tới m/2”