1) Viết thuật toán nhập vào 1 số nguyên n in ra màn hình các số ‘” lẻ ‘” nhỏ hơn n ?
2) Viết thuật toán nhập vào một số nguyên n in ra các ước của n ?
3) Viet thuat toan in ra màn hình bản cửu chương của số N trong khoảng từ 1 đến 9 ?
” MỌI NGƯỜI ƠI , GIÚP MIINH VỚI , MAI MK HỌC R Ạ ”
VOTE 5 :333
1)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Cac so le < n la:’);
for i:=1 to n do
if i mod 2 =1 then write(i,’ ‘);
readln
END.
2)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Cac uoc cua n la:’);
for i:=1 to n do
if n mod i =0 then write(i,’ ‘);
readln
END.
3)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
writeln(‘Bang cuu chuong cua n la:’);
for i:=1 to 9 do
writeln(i,’x’,n,’=’,i*n);
readln
END.
Chạy thử hết r đó
1)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Cac so le < n la:’);
for i:=1 to n do
if i mod 2 =1 then write(i,’ ‘);
readln
END.
2)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Cac uoc cua n la:’);
for i:=1 to n do
if n mod i =0 then write(i,’ ‘);
readln
END.
3)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
writeln(‘Bang cuu chuong cua n la:’);
for i:=1 to 9 do
writeln(i,’x’,n,’=’,i*n);
readln
End