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
2 câu trả lời
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.
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.
