Mọi người giúp e bài này với ạ. Mai e phải thi rồi II. Tự luận Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50Bài 2: Viết chương trình có sử dụng hàm tín...

D

Duy

24 tháng 4 2023

Mọi người giúp e bài này với ạ. Mai e phải thi rồi II. Tự luận Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừaBài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừaBài 4: Viết chương trình có sử dụng hàm đưa ra màn hình...

Đọc tiếp

#Tin học lớp 11

0

TV

Trần Văn Lượng

23 tháng 4 2021

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

23 tháng 4 2021

uses crt;

var 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.

Đúng(0)

TV

Trần Văn Lượng

23 tháng 4 2021

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y. Giúp e vs mn ơi

#Tin học lớp 11

2

NL

Nguyễn Lê Phước Thịnh

23 tháng 4 2021

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.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

23 tháng 4 2021

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.

Đúng(0)

NP

Nguyễn Phạm Như Quỳnh

23 tháng 4 2020 - olm

Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sốchẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phầndư.Bài 2: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sốchẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?Gợi ý: Tương...

Đọc tiếp

#Toán lớp 8

0

NN

Nguyễn Ngọc

20 tháng 3 2022

[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình các số từ 1 đến 10 ]

giúp mik ik mai mik thi gk 2 r

#Tin học lớp 8

2

VQ

Vũ Quang Huy

20 tháng 3 2022

tham khảo

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

Đúng(1)

N

NGUYỄN♥️LINH.._.

20 tháng 3 2022

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Đúng(0)

TU

Thư Uyên

26 tháng 3 2021

Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang...

Đọc tiếp

#Tin học lớp 8

3

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 2:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

NA

nam anh

17 tháng 3 2022

sử dụng ngôn ngữ lập trình pascal. Viết chương trình in ra màn hình

-dòng thứ nhất các số nguyên từ 100->1

-dòng thứ hai số lượng các số nguyên tố

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

17 tháng 3 2022

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Đúng(0)

TL

Trần Long

19 tháng 1 2023 - olm

Sử dụng Python để Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn...

Đọc tiếp

#Tin học lớp 10

0

BT

Bảo Trâm

11 tháng 4 2021

viết chương trình nhập dãy n số nguyên dương từ bàn phím và đưa ra màn hình tích của dãy số nguyên đó(sử dụng biến mảng)

giúp mình với ạ, mình cảm ơn

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

12 tháng 4 2021

uses crt;

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

i,n,s:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

s:=1;

for i:=1 to n do

s:=s*a[i];

writeln(s);

readln;

end.

Đúng(0)

H

Hiếu's

29 tháng 3 2021

Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

29 tháng 3 2021

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:');

dem:=0;

for i:=1 to d do

if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do

if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

Đúng(1)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP