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.

27 tháng 5 2021

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

27 tháng 5 2021

b)

program fibonaci;

uses crt;

var i,n:integer;

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

begin

clrscr;

repeat

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

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2];

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

18 tháng 7 2017

thi rhiha

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán a. In ra các phần tử là số nguyên tố của dãy b. Tính ƯCLN của tất cả các phần tử của dãy c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann d. Sắp xếp và in ra dãy sau sắp xếp 2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho...
Đọc tiếp

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán

a. In ra các phần tử là số nguyên tố của dãy

b. Tính ƯCLN của tất cả các phần tử của dãy

c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann

d. Sắp xếp và in ra dãy sau sắp xếp

2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN

3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím

4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím

5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN

6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần

7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ

8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)

9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)

10. Viết chương trình tính an với a,n được nhập từ bàn phím

Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé

1
23 tháng 3 2018

dài thế thì ai rảnh mà làm

30 tháng 10 2019

đề thi khảo sát hsg trường thôi mà mn

20 tháng 11 2017

Program bai1;

uses crt;

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

i,n,min,s: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

min:=a[1];

s:=0;

for i := 1 to n do

s:=s+a[i];

write('tong cac day so trong mang =',s :4);

writeln;

for i:= 1 to n do

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

write('so nho nhat trong day la :' ,a[i]);

readln;

end.

thầy cô hỗ trợ em với ạ đề bài: Bài 1: Tính tổng Trên một màn hình lớn, người ta lần lượt cho hiện ra các số của một dãy gồm N số nguyên không âm a1, a2, …, aN và cứ lặp đi lặp lại như thế (nghĩa là sau khi ai xuất hiện vài giây đến lượt ai+1 xuất hiện, số xuất hiện sau aN là a1). Yêu cầu: Bạn được đề nghị tính tổng của K số nguyên liên tiếp xuất hiện trên màn...
Đọc tiếp

thầy cô hỗ trợ em với ạ

đề bài:

Bài 1: Tính tổng

Trên một màn hình lớn, người ta lần lượt cho hiện ra các số của một dãy gồm N số nguyên không âm a1, a2, …, aN và cứ lặp đi lặp lại như thế (nghĩa là sau khi ai xuất hiện vài giây đến lượt ai+1 xuất hiện, số xuất hiện sau aN là a1).

Yêu cầu: Bạn được đề nghị tính tổng của K số nguyên liên tiếp xuất hiện trên màn hình bắt đầu từ số nguyên thứ B.

Dữ liệu vào: Chứa trong file BAI1.INP gồm hai dòng:

+ Dòng đầu tiên ghi ba số nguyên N, K, và B, 1 £ N £104; 1 £ K £ 2. 104 ; 1 £ B £ 109.

+ Trong N dòng sau, dòng thứ i chứa số ai (ai < 2.109).

Dữ liệu ra: Ghi ra file BAI1.OUT một số là tổng tìm được.

Ví dụ:

BAI1.INP

BAI1.OUT

5 7 6

2

3

6

7

9

32

Bài 2. Đổi giày DOIGIAY.PAS

Bờm là chủ một cửa hiệu bán giày. Một ngày nọ, Bờm kiểm tra kho và thấy trong kho còn lại 2*N chiếc giày, trong đó có N chiếc giày chân trái với kích thước lần lượt là a1, a2, …, aN, N chiếc giày chân phải với kích thước lần lượt là b1, b2, …, bN. Hai chiếc giày chỉ có thể hợp thành một đôi nếu chúng là một cặp trái - phải có cùng kích thước. Bờm quyết định mang một số giày đến nhà sản xuất để đổi.

Hãy xác định giúp Bờm số ít nhất các chiếc giày cần đổi nếu cậu ta muốn cửa hiệu của mình có thể bán được N đôi giày.

Dữ liệu vào từ file văn bản: shoes.inp

· Dòng 1: Số nguyên N (1 ≤ N ≤ 100).

· Dòng 2: N số nguyên a1, a2, …, aN (1 ≤ ai ≤ 1000, i = 1, 2,…, N).

· Dòng 3: N số nguyên b1, b2, …, bN (1 ≤ bi ≤ 1000, i = 1, 2,…, N).

Kết quả ghi ra file văn bản: shoes.out

· Dòng 1: Số nguyên là số giày ít nhất cần đổi.

Ví dụ

shoes.inp

shoes.out

Giải thích

3

1 3 1

3 2 1

1

Đổi 1 chiếc giày chân trái kích thước 1 thành giày chân trái kích thước 2 hoặc đổi 1 chiếc giày chân phải kích thước 2 thành giày chân phải kích thước 1.

Bài 3: TUOI.PAS

Tuổi của cha hiện nay là b tuổi, tuổi của con là c tuổi (b-c > 0 và 0<b,c<150 b, c là các số nguyên dương). Hãy viết chương trình để kiểm tra xem tuổi cha có gấp đôi tuổi con hay không? Nếu đúng thì thông báo “YES”; trường hợp ngược lại, hãy tính số K năm (trước đó hoặc sau đó) tuổi cha gấp đôi tuổi con và thông báo “-K” nếu là K năm trước đó tuổi cha gấp đôi tuổi con hay “K” nếu sau K năm tuổi cha sẽ gấp đôi tuổi con”.

Ví dụ

Tuoi.inp

Tuoi.out

48 24

YES

49 24

1

47 24

-1

Gợi ý: Nếu b>2*c thì tăng i cho đến khi b+i=(c+i)*2 thông báo sau i năm

nếu b< 2*c thì tăng i cho đến khi b-i = 2*(c-i) thông báo trước i năm khác

Bài 4. Giá trị biểu thức BIEUTHUC.PAS

Cho một xâu chỉ chứa các kí tự: chữ số, dấu cộng, dấu trừ, thể hiện một biểu thức số học. Yêu cầu tính giá trị của biểu thức đã cho. các số hạng và giá trị của biểu thức có độ lớn không quá hai tỉ.

Dữ liệu vào từ tệp bieuthuc.inp chứa duy nhất một xâu kí tự thể hiện biểu thức cần tính.

Kết quả đưa ra tệp bieuthuc.out chứa một số nguyên là giá trị của biểu thức.

bieuthuc.inp

bieuthuc.out

12+3-7

8

Bài 6 duongdi.pas

Cho một ma trận vuông cấp n gồm các phần tử là các số nguyên dương. Hãy viết chương trình tìm đường đi từ ô đầu tiên bên trâí đến ô cuối cùng bên phải sao cho trên đường đi đó có tổng các giá trị lớn nhất. biết đường đi chỉ được phép đi sang phải hoặc đi xuống dưới.

Ví dụ

duongdi.inp

Duongdi.out

4

1 2 3 4

2 5 3 1

1 9 7 2

4 5 8 1

1 1

1 2

2 2

3 2

3 3

4 3

4 4

3
9 tháng 2 2020

program Doi_giay;
var n,i,j,d:longint;
a,b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for j:=1 to n do
read(b[j]);
for i:=1 to n do
for j:=1 to n do
if a[i]=b[j] then begin a[i]:=0;
b[j]:=0; end;
for i:=1 to n do
if a[i]<>0 then d:=d+1;
write(d);
end.

31 tháng 12 2019

Mình có bài này ở gmail bạn gửi địa chỉ gmail của bạn để mình chuyển đáp án nhé

16 tháng 3 2017

var i,n,tb :integer;

begin

readln(n);

tb:=0;

for i:=1 to n do tb:=tb+1;

writeln(tb);

end.

18 tháng 3 2017

program CTTTB;

uses crt;

var TB,x:real; n,y: integer;

begin

Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);

for y:=1 to n do

begin Write('Nhap so thu',y);Readln(x);

TB:=TB+x;

end;

TB:=TB/n;

Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);

Readln;

End.

11 tháng 4 2019

chỗ a,a,a,...,a sửa thành a0,a1,a2,...,an nhé

11 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var dathuc,n,x,i : integer ;

begin

write('Nhap gia tri cua n='); readln(n);

dathuc := 0;

for a:= 1 to n do

for x:= 1 to n do dathuc:= dathuc+a*(x*x) ;

write('P(x)=',dathuc);

readln

end.

16 tháng 3 2017

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:3:0);

end.

16 tháng 3 2017

mình làm while do nhé, cái kia để mình tìm hiểu thêm

var S:real;

i,n:longint;

begin

writeln('n=') ; readln(n);

S:=0;

i:=1;

while (i<=n) do

begins=

S:= 9S+1/i;

i:=i+1;

end;

writeln ('S=');

end.