K
Khách

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 Python có sử dụng chương trình con giải các bài toán sauCâu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317n<a Với a là một số thực bất kì nhập tử bản phim.                                                                Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên...
Đọc tiếp


Viết chương trình Python có sử dụng chương trình con giải các bài toán sau

Câu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317n<a Với a là một số thực bất kì nhập tử bản phim.                                                                Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên tố, Ví dụ: 12 là một số đẹp vì l^2+ 2^2 = 5 là số nguyên tố.
Yêu cầu: cho số nguyên N (I<=N<=10^6). Hãy cho biết số N có phải là số đẹp không                                                                                                                        Câu 3 (2 d). Nhập vào 1 dãy N số nguyên a1, a2, ..., an. Tìm số lớn thứ nhì trong dãy đã cho.

0

uses crt;

const fi='kiemtra.txt';

var f1:text;

a:array[1..100]of integer;

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=nn(a[1],a[2]);

for i:=3 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Mình xin sửa lại một chút:

uses crt;

const fi='kiemtra.txt';

var f1:text;

a:array[1..100]of integer;

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

min:=nn(a[1],a[2]);

for i:=3 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

18 tháng 7 2023

THAM KHẢO!

def is_prime(n):

 if n <= 1:

  return "KHÔNG"# Trường hợp n <= 1 không phải số nguyên tố

 elif n <= 3:

  return "CÓ"# Trường hợp n = 2 hoặc n = 3 là số nguyên tố

 elif n % 2 == 0:

  return "KHÔNG"# Trường hợp n chẵn lớn hơn

 
18 tháng 11 2021

mình đang cần gấp ạ

 

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;

uc:=ucln(a[1],a[2]);

for i:=3 to n do 

 uc:=ucln(uc,a[i]);

writeln(uc);

readln;

end.

15 tháng 11 2021

???