nhập vào số nguyên n. in ra ước nhỏ nhất khác 1 của n (chỉ dùng lệnh for , ko dùng lệnh break )
Những câu hỏi liên quan
Viết chương trình pascal nhập n (N > 0) Xuất ra màn hình:
+ Các ước của n và cho biết có bao nhiêu ước.
+ Tổng các ước của n.
+ Xét tổng các ước của n có phải là số nguyên tố không?
Lưu ý: chỉ dùng lệnh while...do
var i,n,s,du,dem:integer;
Begin
While n<=0 do
Begin
Write('N = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then
Begin
Write(i:7);
du:=du+1;
s:=s+i;
End;
Writeln('So uoc cua ',n,' la ',du);
Writeln('Tong cac uoc cua ',n,' la ',s);
For i:=1 to s do
If s mod i = 0 then dem:=dem+1;
If dem=2 then write(s,' la so nguyen to')
Else write(s,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
6 tháng 4 2023 lúc 21:44
Viết chương trình Pascal nhập vào 1 dãy số nguyên và in ra màn hình khi tổng của chúng < 20. Dùng câu lệnh while…do…
program tong_so;
var
tong, so: integer;
begin
tong := 0;
while tong < 20 do
begin
write('Nhập số nguyên: ');
readln(so);
tong := tong + so;
end;
writeln('Tổng các số đã nhập là: ', tong);
end.
Đúng 1
Bình luận (0)
24 tháng 4 2023 lúc 16:34
nhập vào dãy số a in ra các phần tử là số nguyên tố (dùng các lệnh ở tin học lớp 8)
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
2 tháng 2 2023 lúc 15:42
Nhập hai số x,y in ra xy (pascal) dùng lệnh for...do
uses crt;
var x,lt:int64;
y,i:integer;
begin
clrscr;
readln(x,y);
lt:=1;
for i:=1 to y do
lt:=lt*i;
writeln(lt);
readln;
end.
Đúng 3
Bình luận (0)
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ