Viết chương trình nhập số nguyên N và in ra các ước của chúng Giúp mình!!!
2 câu trả lời
Program BTH;
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Uoc cua ',n,' la: ');
for i:=1 to n-1 do
if n mod i= 0 then write(i,' ');
readln;
end.
program oken;
uses crt;
var a,i:integer;
begin
clrscr;
write('nhap so: '); readln(a);
write('uoc so cua ',a,'= ');
for i:=1 to a-1 do
if a mod i= 0 then write(i,'.');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
