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.
*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
bool kt;
int main()
{
cin>>n;
if (n>1)
{
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true) cout<<n<<" la so nguyen to";
else cout<<n<<" khong la so nguyen to";
}
else cout<<n<<" khong la so nguyen to";
return 0;
}
program SoUocLa3;
var
n, i, count: integer;
begin
write('Nhap gia tri cua n (10<=n<=10^9): ');
readln(n);
writeln('Cac so co so uoc la 3 tu 1 den ', n, ' la:');
count := 0;
for i := 1 to n do
begin
if (n mod i = 0) then
begin
count := count + 1;
end;
if (count = 3) then
begin
write(i, ' ');
count := 0;
end;
end;
readln;
end.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
Var
m,n,i,j,h,dem:integer;
Begin
writeln('Hay nhap m:');
readln(m);
writeln('Hay nhap n:');
readln(n);
if m<n
for i:=m to n do
if i>0 Then
begin
Writeln('Cac so nguyen to tu 2 den ',n,' la:');
for j:=2 to i Do
begin
dem:=0;
for h:= 1 to j do if j mod h=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;
readln;
end.
Bạn ơi ở if m<n bạn thiếu then
Và đề không yêu cầu đếm có bao nhiêu số nguyên tố
Tin học [Hỗ trợ] À thêm then vào xét cả th m>n nữa bỏ dem đi là mk đúng.
Ủa sao bạn là CTV? Đã 100 GP đâu?
Bạn ơi đề yêu cầu in ra các số nguyên tố chứ không phải đếm xem trong dãy số từ m đến n có bao nhiêu số nguyên tố
Tin học [Hỗ trợ] Thì bỏ dem đi write i
Bạn chạy thử chưa
Tin học [Hỗ trợ] Chưa
program goodcmnr;
uses crt;
var m,n: integer;
i,j: integer;
begin
clrscr;
writeln('Nhap so m: '); read(m);
writeln('Nhap so n: '); read(n);
if m<n then
begin
for i:=m to n do
begin
j:=m;
if j>1 then
j:=2;
while (i mod j <> 0) do i:=i+1;
if j = i then write(i,',');
end;
else write('khong co');
end;
else writeln('khong co');
Readln
End.