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.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin>>n;
if (n>100 && n<1000) cout<<"La so hop le";
else cout<<"Khong la so hop le";
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then inc(dem);
writeln(dem);
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;
}
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
never
Program Sara_Trang;
Uses crt;
Var tuoi:Byte;
Begin
clrscr;
Write(Nhap vao tuoi cua mot nguoi:'); Readln(tuoi);
Case tuoi Of
1..17: Writeln(Nguoi nay la thieu nien');
18..39:Writeln(Nguoi nay la thanh nien');
40..60:Writeln(Nguoi nay la trung nien');
Else Writeln(Nguoi nay la lao nien');
End;
Readln
End.