Viết chương trình tìm số nguyên tố của 1 dãy số
mk cần gấp có ai biết xin giúp mk
Những câu hỏi liên quan
bài 1: lập chương trình viết ra các số nguyên tố nhỏ hơn n
bài 2: lập chương trình xác định 1 số có phải là siêu nguyên tố hay ko
ai làm dc thì mk tick cho,mk đg cần gấp( nhớ dùng lệnh while)
Câu 1:mã chương trình:
var i,n,d,j:longint;
begin
readln(n);
for i:=2 to n do
begin
d:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j =0 then d:=d+1;;
if d=0 then writeln(i);
end;
readln;
end.
Câu 2: Mã chương trình:
var i,n,d,t:longint;
begin
readln(n);
if n<2 then write('ko phai snt')else
begin
t:=0;
while n>0 do
begin
d:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then d:=d+1;
if d=0 then n:=n div 10 else begin
t:=1;
break; {thoat khoi lenh}
end;
end;
if t=1 then write('ko phai snt') else write('la snt');
end;
readln;
end.
cho dãy A gồm n số nguyên (n< 200) mỗi số có giá trị tuyệt đối không vượt quá 300. viết chương trình sắp xếp dãy A thành dãy không giảm .
Em đang cần gấp mọi người giúp em với ạ . Em xin cảm ơn !
#include <bits/stdc++.h>
using namespace std;
long long a[200],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Đúng 1
Bình luận (0)
Viết phương trình: nhập N số nguyên và nhập N từ bàn phím:
-Tính tổng dãy số -> tham khảo bài 7.
-Đếm xem dãy có bao nhiêu số nguyên dương.
(mn giúp mk với ạ mk đang cần gấp ạ).
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
Đúng 0
Bình luận (0)
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
Viết chương trình tạo một tệp dulieu.txt chứa dãy gồm 10 nguyên tố liên tiếp và hãy tính tổng dãy số nguyên đó cần gấp ạ
uses crt;
const fi='dulieu.txt'
var a:array[1..100]of integer;
i,n,t:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Cho phương trình: x^2-px+q=0. Trong đó, p vá q là các số nguyên tố. Biết phương trình có 2 nghiệm dương phân biệt. Chứng minh p^2 +q^2 là 1 số nguyên tố
Mk cần gấp, mấy bn giải giúp mk nha
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Đọc tiếp
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
cho một dãy số a1,a2,...an các số nguyên gồm n phần tử (2<n10 mũ 5;)-3200,ai<3200) yêu cầu:
viết chương trình liệt kê các số nguyên tố có dãy số vừa nhập mn giúp em ạ :(
uses crt;
var a:array[1..10000]of integer;
i,n,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
cho một dãy số a1,a2,...an các số nguyên gồm n phần tử (2<n10 mũ 5;)-3200,ai<3200) yêu cầu:
viết chương trình liệt kê các số nguyên tố có dãy số vừa nhập mn giúp em ạ :(
uses crt;
var a:array[1..10000]of integer;
i,n,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Đúng 0
Bình luận (0)