Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var n,i:integer;
Begin
n:=0;
White n<=2 do
Begin
Write('Nhap so n > 2, n = ');readln(n);
End;
Write('Cac uoc cua ',n,' la ');
For i:=1 to n do
If n mod i = 0 then write(i,' ');
Readln;
End.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
bạn làm vậy vừa không đúng vừa phức tạp nha bạn ơi
giả sử như lũy thừa của 2 lớn nhất theo yêu cầu của đề là 1 (2^0)
ví dụ mình nhập vào số 1 số 3 chẳng hạn thì máy tính không in ra gì cả nhưng mà theo yêu cầu của đề là in ra số 1 có phải không ạ
n là số lẻ thì chương trình không in ra gì hết bạn ơi
Cảm ơn bn mik sẽ lm thử nha
uses crt;
var n,x,i,d:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
for i:=n downto 1 do
if (n mod i=0) and (i mod 2=0) then
begin
x:=i;
d:=0;
repeat
x:=x div 2;
inc(d);
until x mod 2=1;
if x=1 then
begin
write(i);
break;
end;
end;
readln;
end.