Nội dung của Bài thực hành 7: Xử lý dãy số trong chương trình dưới đây các em sẽ làm bài tập thực hành khai báo và sử dụng các biến mảng; ôn luyện cách sử dụng câu lệnh lặp if...then, for...do; củng cố kĩ năng đọc, hiểu và chỉnh sửa chương trình;... Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
a. 1. Cách khai báo mảng trong Pascal như sau:
Tên mảng: array [ < Chỉ số đầu > .. < Chỉ số cuối > ] of < Kiểu dữ liệu >;
Trong đó:
a.2. Truy cập đến giá trị phần tử trong mảng:
Tên mảng [ Chỉ số ];
a.3. Nhập giá trị cho mảng:
Sử dụng lệnh Read (hoặc Readln) kết hợp với For ... do để nhập giá trị cho mảng.
Các bước nhập giá trị cho mảng:
a.4. In giá trị các phần tử của mảng:
Sử dụng lệnh Write (hoặc Writeln) kết hợp với For ... do để in giá trị các phần tử của mảng.
Các bước in giá trị của mảng:
Tiêu chuẩn:
Gợi ý làm bài:
Ý tưởng:
Xác định bài toán:
Các biến sử dụng trong chương trình:
Chương trình:
Program Phan_loai;
uses crt;
Var i, N, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so hoc sinh trong lop, N= ');
readln(N);
writeln('Nhap diem :');
For i:=1 to N do
Begin
write(‘Diem cua hoc sinh thu ‘, i,’ =’);
readln(A[i]);
End;
Gioi:=0;
Kha:= 0;
Trungbinh:= 0;
Kem:= 0;
for i:=1 to N do
Begin
if A[i] >= 8.0 then
Gioi:= Gioi + 1;
if (A[i] <8.0 ) and (A[i] >=6.5) then
Kha:= Kha + 1;
if (A[i] >= 5.0 ) and (A[i] < 6.5) then
Trungbinh:= Trungbinh + 1;
if a[i]<5.0 then
Kem:=Kem+1;
end;
writeln(' Ket qua hoc tap: ');
writeln(Gioi, ' ban hoc gioi ');
writeln(Kha, ' ban hoc kha ');
writeln(Trungbinh, ' ban hoc trung binh');
writeln(Kem, ' ban hoc kem ');
readln;
End.
Gợi ý làm bài:
Xác định bài toán:
Input: Điểm môn Toán và điểm môn Văn của các bạn trong lớp.
Output:
Thuật toán:
Chương trình:
Program Diem_trung_binh;
Uses crt;
Var i, N: integer;
TBToan, TBVan: real;
DiemToan, DiemVan: array [1..100] of real;
Begin
clrscr;
write(‘Nhap so cac ban HS trong lop, N =‘);
readln(N);
writeln(‘Nhap diem Toan: ‘);
For i:=1 to N do begin write(i, ‘ . ‘);
readln(DiemToan[i]); end;
Writeln(‘Nhap diem Van: ‘);
For i:=1 to n do begin write(i, ‘. ‘);
readln(DiemVan[i]); end;
writeln(‘Diem trung binh moi HS: ‘);
For i:=1 to n do
Writeln(i, ‘ . ’, (DiemToan[i]+DiemVan[i])/2:3:1);
TBToan:=0;
TBVan:=0;
For i:=1 to N do
Begin
TBToan:=TBToan+DiemToan[i];
TBVan:=TBVan+DiemVan[i];
end;
TBToan:=TBToan/N;
TBVan:=TBVan/N;
Writeln(‘Diem trung binh mon Toan: ‘, TBToan:3:2);
Writeln(‘Diem trung binh mon Van: ‘,TBVan:3:2);
readln
End.
Chạy chương trình với các số liệu cụ thể:
N=3 (3 học sinh):
Học sinh | Điểm Toán | Điểm Văn | Điểm trung bình của mỗi học sinh |
1 | 5 | 7 | 6.0 |
2 | 6 | 8 | 7.0 |
3 | 7 | 9 | 8.0 |
Điểm trung bình Toán và Văn | 6.0 | 8.0 |
Sau khi học xong Bài thực hành 7: Xử lý dãy số trong chương trình, các em cần ghi nhớ các nội dung:
1. Cú pháp khai báo biến mảng kiểu số nguyên và số thực trong Pascal có dạng:
Trong đó, chỉ số đầu không lớn hơn chỉ số cuối.
2. Tham chiếu tới phần tử của mảng được xác định bằng cách:
< tên biến mảng > [ chỉ số ]
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 7 cực hay có đáp án và lời giải chi tiết.
Cách khai báo mảng sau đây cách nào khai báo đúng?
Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là:
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Cách khai báo mảng sau đây cách nào khai báo đúng?
Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là:
Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?
Số phần tử trong khai báo dưới đây là bao nhiêu?
Var tuoi : array[12..80] of integer;
Các khai báo biến mảng sau đây trong Pascal là đúng?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết chương trình để tìm lời giải cho bài toán sau:
Trăm trâu trăm bó cỏ
Bó lại cho tròn
Trâu đứng ăn năm
Trâu nằm ăn ba
Năm trâu nghé ăn một.
Hỏi có bao nhiêu trâu đứng, trâu nằm, trâu nghé?
Câu trả lời của bạn
program contrau;
uses crt;
var i,j,k:byte;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3 =100 then
writeln('trau dung',i,' trau nam',j,' trau gia',k);
end;
readln
end.
nhập N số bất kỳ : đếm các số lớn hon 10 và nhỏ hơn 20 và tính tổng của chúng.sau đó đưa ra màn hình trong turbo pascal
Câu trả lời của bạn
uses crt;
var n,i,dem:byte;
a:array[1..100] of longint;
tong:longint;
begin
clrscr;
write('nhap N:');readln(n);
writeln('nhap N so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
dem:=0; tong:=0;
for i:=1 to n do
begin
if (a[i]>10) and (a[i]<20) then
begin
dem:=dem+1;
tong:=tong+a[i];
end;
end;
if dem=0 then write('khong co so lon hon 10 va nho hon 20');
readln;
end.
chuc ban hoc tot
Viết đoạn chương trình thực hiện việc tính tổng các phần tử trong dãy số n
P/s : Giúp em với ạ ><
Mai em phải nộp bài tập rồi
Câu trả lời của bạn
Mình làm đây nhé.
https://pastebin.com/30TMyAWn
viết chương trình nhập vào một dãy số gồm 50 phần tử ,sau đó in dãy vừa nhập ra màn hình,tính tổng các số chia hết cho 3 ở trong dãy và in tổng đó ra màn hình.
Câu trả lời của bạn
program C1;
uses crt;
var s:real;
i:integer;
a:array [1..100] of integer;
begin
s:=0;
for i:=1 to 50 do
begin
write('Nhap so thu ',i,' : ');readln(a[i]);
if a[i] mod 3=0 then
begin
s:=s+a[i];
end;
end;
for i:=1 to 50 do
begin
write(a[i],' ');
end;
writeln;
write(' tong cac so chia het cho 3 trong day so tren la : ',s:3:0);
readln;
end.
Viết chương trình biến mảng tính tổng của các phần tử chẵn và tổng các phần tử lẻ trong mảng
Help me !! nhanh trong sáng mai nha
Câu trả lời của bạn
Chúng ta vẫn thường được bố mẹ và thầy cô nhắc nhở rằng nên giữ thói quen tiết kiệm, tránh lãng phí nhưng dường như không phải ai cũng lắng nghe điều đó. Ấy là bởi nhiều người vẫn chưa hiểu được ý nghĩ của việc thực hành tốt lối sống tiết kiệm. Nếu bạn biết rằng việc tiết kiệm mang đến cho chúng ta những lợi ích như thế nào thì chắc chắn bạn sẽ thay đổi hành vi của mình.
Tiết kiệm có nghĩa là không lãng phí nguồn của cải, vật liệu,… cả của riêng lẫn của chung. Tiết kiệm không có nghĩa là cất giữ hay giấu kín đi mà là làm cho nguồn của cải ấy sinh sôi thêm. Đất nước ta vẫn được biết đến với nguồn tài nguyên thiên nhiên vô cùng dồi dào. Chúng ta có rừng vàng, biển bạc thế nhưng bạn nghĩ nếu một ngày nào đó chúng ta chặt phá hết rừng, khai thác hết biển thì nguồn tài nguyên của chúng ta sẽ chẳng mấy mà cạn kiệt. Hãy thử tưởng tượng nếu một ngày rừng không còn cây xanh thì đã bị đốn lấy gỗ hết thì bao nhiêu thiên tai sẽ xảy ra. Nào là xói mòn, rửa trôi, mạch nước ngầm sẽ không được bảo vệ. Nếu nước lũ về, người dân sẽ không kịp trở tay bởi sẽ chẳng có cánh rừng nào giúp cản nước lại cả. Như thế chẳng phải rất nguy hiểm hay sao? Đất nước Việt Nam chúng ta vốn dĩ là một nước nông nghiệp lạc hậu. Bao nhiêu năm qua, chúng ta đã cố gắng vươn lên để trở thành một nước công nghiệp nhưng cái gốc nông nghiệp vẫn không thể nào từ bỏ. Trong khi đó, chiến tranh đã tàn phá của chúng ta biết bao nhiêu của cải. Thiệt hại do chiến tranh mang lại kể đến bây giờ vẫn chưa hết. Nếu chúng ta không tiết kiệm thì làm sao đất nước ta có thể phát triển được? Nhiều người cho rằng chỉ cần tiết kiệm cái của riêng mình còn cái chung thì không cần. Chẳng hạn như điện. Chúng ta vẫn thường dùng điện một cách rất lãng phí chẳng hạn như bật bóng điện không cần thiết. Không tắt thiết bị điện khi không dùng nữa. Lý do bởi nhiều người cho rằng không tiết kiệm điện thì chẳng ảnh hưởng đến ai cả. Mình dùng nhiều thì mình trả nhiều tiền. Tiền của mình nên cũng chẳng cần mọi người nhắc mình tiết kiệm. Trên thực tế, nguồn điện là của chung và nó cũng có thể bị cạn kiệt đi nếu như chúng ta không biết tiết kiệm. Nếu như hạn hán kéo dài, nguồn nước dùng cho thủy điện không có thì lúc ấy bạn sẽ đổ lỗi do đâu? Còn nhớ có những năm giữa trời mùa hè oi bức nhưng người dân cả nước phải sống trong cảnh mất điện luân phiên. Nguyên nhân sâu xa chính là do chúng ta đã không chịu tiết kiệm điện trước đó. Khoan vội nói nhiều đến những thứ xa xôi. Hãy lấy ngay ví dụ trong gia đình mình. Bố mẹ chúng ta hàng ngày đi làm vất vả để kiếm được một chút tiền, lo cho chúng ta từng bữa ăn, giấc ngủ. Tiền của bố mẹ làm ra đổi bằng mồ hôi, nước mắt. Vì vậy, chúng ta không nên đua đòi để bắt bố mẹ phải mua cho chúng ta thứ nọ, thứ kia. Như vậy là không ngoan. Trách nhiệm của chúng ta bây giờ là phải học tập cho thật tốt. Bố mẹ cũng là những người bỏ tiền ra cho chúng ta theo học để lấy kiến thức. Nếu chúng ta không học mà chỉ mải chơi thì đó cũng là một sự lãng phí to lớn. Không chỉ là lãng phí tiền bạc của bố mẹ mà còn lãng phí cả tuổi trẻ của mình nữa. Nếu chúng ta biết tiết kiệm cho ngày hôm nay, nguồn tài nguyên của chúng ta sẽ còn mãi cả mai sau. Nếu chúng ta biết tiết kiệm thời gian, tiết kiệm của cải của mình từ hôm nay thì trong tương lai chúng ta sẽ trở thành những người giàu có. Vậy thì chẳng có lý do gì để chúng ta không thực hành tiết kiệm ngay từ bây giờ.Em hãy viết chương trình pascal nhập một mảng số nguyên gồm n phần tử với n được nhập từ bàn phím in rãi vừa nhập ra màn hình và tính tổng các phần tử trong mảng đưa kết quả ra màn hình.
Câu trả lời của bạn
Var z:array[1..1000] of longint;
n, i, T:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('T',i,'=');
Readln(z[i]);
T:= T + z[i];
End;
Writeln('Tong la ',T);
End.
Bạn thử kiểm tra lại nhé!
viết chương trình tính tổng các số lẻ trong khoảng từ 1 đến 200
Câu trả lời của bạn
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
Viết chương trình nhập một dãy số và tìm số lớn nhất, số nhỏ nhất trong dãy vừa nhập.
Câu trả lời của bạn
Viết chương trình nhập vào một dãy số nguyên khác 0, các số cách nhau bởi dấu cách và kết thúc bằng số 0. Từ dãy vừa nhập in ra màn hình:
a) dãy các số chẵn trong dãy. Tổng các số chẵn trong dãy
b) Dãy các số lẻ trong dãy. Tổng các số lẻ trong dãy.
c) Sắp xếp dãy vừa nhập vào theo thứ tự không giảm
**Gấp Gấp, cần gấp lắm rồi**
Câu trả lời của bạn
+ý : a,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n: integer;
s: real;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
s:=0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
s:=s+a[i];
writeln('tong=' ,s:3:2);
readln
end.
+ý : b,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n: integer;
s: real;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
s:=0;
for i:= 1 to n do
if a[i] mod 2 =1 then
s:=s+a[i];
writeln('tong=' ,s:3:2);
readln
end.
+ ý c,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n,Zinteger;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
for i:= 1 to n do
for j:= i+1 to n do
if a[i] > a[j] then
Z:=a[i];
a[i]:=a[j];
a[j]:=Z;
writeln(a[i]);
readln
end.
Viết chương trình tính tổng các số nguyên từ 1-100
Câu trả lời của bạn
Input : dãy 100 số nguyên đầu tiên : 1,2,3,...,100
Output : Giá trị của tổng 1+2+3+...+100
Mô tả thuật toán :
B1 : SUM\(\leftarrow0,i\leftarrow0\)
B2 : SUM \(\leftarrow SUM\) + i ; i\(\leftarrow i+1\)
B3 : Nếu i \(\le100\) , thì quay lại bước 2 , ngược lại thông báo giá trị của SUM
B4 : Kết thúc thuật toán
Cho một dãy số gồm n số nguyên. Viết chương trình sử dụng biến mảng thực hiện các yếu cầu sau:
+ Nhập vào dãy số nguyên đó
+tính tổng các số nguyên trong dãy số vừa nhập
+đếm xem trong giải số đó có bao nhiêu số âm
+tính tích các số nguyên trong dãy số vừa nhập
+ in ra số lớn nhất cùa dãy số đó
+ in ra số bé nhất của dãy số đó
@@@@@Ai giúp tớ với, tớ sắp thi rồi
Câu trả lời của bạn
bn thu xem nhe
program Mang;
uses crt;
var i, max, min, tong, tich, desoam,n:longint;
A:array[1..10000] of longint;
begin
write('N= '); readln(n);
tong:=0;
tich:=1;
demsoam:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i); readln(A[i]);
tong:=tong+A[i];
tich:=tich*A[i];
if A[i]<0 then demsoam:=demsoam+1;
end;
min:=A[1];
max:= A[1];
for i:=1 to n do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln('Tong cac so trong day vua nhap: ',tong);
Writeln('Day tren co ',demsoam,' so am.');
Writeln('Tich cac so nguyen trong day: ',tich);
Writeln('So lon nhat la: ',max);
Writeln('So be nhat la: ',min);
readln
end.
Viết chương trình nhập điểm kiểm tra học kì 1 môn tin, cho n học sinh và in ra màn hình với n và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
Câu trả lời của bạn
Viết chương trình nhập điêm thi học kì môn tin học trong 1 lớp 35 học sinh. Điểm thi được nhập bất kỳ vào từ bàn phím (sử dụng biến mảng)
uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln('nhap so hoc sinh: ');readln(n);
writeln('nhap diem');
for i:=1 to n do
begin
write('a[',i,']');readln(a[i]);
end;
for i:=1 to n do write('hoc sinh ',i,' duoc ',a[i],' diem mon tin');
readln
end.
bài này mình chưa thử trên máy nên không biết đúng hay sai =v=
viết ct tính tổng:A=1+1/2+1/3+...+1/N (n thuộc z)
a) sử dụng lệnh for...to...do
b)sử dụng lệnh while...do
Câu trả lời của bạn
program whiledo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;i:=1;
While i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln('Tong la ',s);
readln
end.
Viết chương trình nhập vào một số nguyên từ bàn phím in ra màn hình kết quả bảng cửu chương của số nguyên...
HELP. ME.
Câu trả lời của bạn
program bang_nhan;
uses crt;
var i,N : integer;
begin clrscr;
write('Nhap so N='); readln(N);
writeln('Bang nhan' , N , 'la :');
for i:= 1 to 10 do writeln(N , 'x' , i ,'=' , N * i );
readln;
end.
viế chương trình nhập vào một mảng số nguyên.ghi ra màn hình giá trị trung bình cộng của mảng đó và in các phần tử nhỏ hơn trung bình cộng của mảng.
giúp với
Câu trả lời của bạn
Uses crt;
var a: array [1..100] of integer;
n, i, s: integer;
tb: real;
begin
clrscr;
write ('Nhap so luong phan tu: ');
readln (n);
for i:= 1 to n do readln (a[i]);
s:=s+a[i];
tb:=s/n;
writeln ('Gia tri trung binh cong cua mang la ',tb);
write ('Cac phan tu nho hon gia tri trung binh cong: ');
for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln
end.
viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và in các phần tử nhỏ hơn giá trị trung bình cộng của mảng
Câu trả lời của bạn
Uses crt;
var a: array [1..100] of integer;
n, i, s: integer;
tb: real;
begin
clrscr;
write ('Nhap so luong phan tu: ');
readln (n);
for i:= 1 to n do readln (a[i]);
s:=s+a[i];
tb:=s/n;
writeln ('Gia tri trung binh cong cua mang la ',tb);
write ('Cac phan tu nho hon gia tri trung binh cong: ');
for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln
end.
Cho 1 dãy số nguyên a1,a2,…,an
Yêu cầu: Hãy tìm số âm lớn nhất trong dãy trên
Câu trả lời của bạn
Var maxam,i,n,cs : Integer;
A:array[1..100] of integer;
Begin
Write (' nhap n : ');
Readln(n);
For i:= 1 to n do Begin
Write ('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n do If A[i]<0 then maxam:=A[i];
Maxam:=A[1]; cs:=1;
For i:= 2 to n do begin
If (A[i]<0) and ( maxam<A[i]) then
begin
Maxam:=A[i];
cs:=i;
end;
end;
Writeln (' pt am lon nhat trong mang : ',Maxam);
Writeln(' vi tri cua ptu do la :',cs);
Readln;
end.
Viết chương trình sắp xếp 5 số thứ tự trong pascal.
Cả thuật toán và chương trình luôn ạ
(help me!! Cái này trong sách hoạt động trải nghiệm sáng tạo lớp 8 á. Trang 52-59 .Ở hoạt động 4 nhưng mà liên quan đến hoạt động 1 ạ. Làm ơn hãy giúp mình, mình biết ơn lắm luôn đó )
Câu trả lời của bạn
Sx tăng dần:
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]>A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.
Sx giảm dần :
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]<A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.
Đề : Bài tập về kiểu dữ liệu mảng (Array)
cho mảng số nguyên a , tìm số âm đầu tiên và vị trí của nó??????
Câu trả lời của bạn
program bt;
uses crt;
var n,i,vitri:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so phan tu cua mang:');readln(N);
writeln('nhap mang:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
vitri=0;
for i:=1 to n do
if a[i]<0 then
begin
writeln(' so am dau tien la:',a[i]);
vitri:=i;
break;
end;
if vitri=0 then write('khong co so nguyen am trong mang')
else write('vi tri la:',vitri);
readln;
end.
*Bài tập lập trình pascal:
1. Cho số tự nhiên n
a) Cho biết trong số n2 có bao nhiêu chữ số 3?
b) Hãy đổi chỗ chữ số đầu và chữ số cuối của n cho nhau rồi tính tổng số ban đầu và số mới.
2. Cho số tự nhiên m, tìm số nguyên k lớn nhất thỏa mãn 4k<m.
Giúp mình với! Cảm ơn các bạn!
Câu trả lời của bạn
program bai1;
uses crt;
var n,tong,a,dem,i,t:longint;
j:integer;
s,s1:string;
function demcs(n:longint):longint;
begin
dem:=0;
while n <>0 do
begin
dem:=dem+1;
n:=n div 10;
end;
demcs:=dem;
end;
begin
clrscr;
write('nhap n:');readln(n);
a:=sqr(n);
dem:=0;
while a<>0 do
begin
if a mod 10 =3 then dem:=dem+1;
a:=a div 10;
end;
if dem=0 then writeln('trong so ',sqr(n),' khong co chu so 3 nao')
else
writeln('trong so ', sqr(n),' co ',dem,' chu so 3');
if demcs(n)<>1 then
begin
str(n,s);
s1:=s[length(s)];
for i:=2 to length(s)-1 do s1:=s1+s[i];
s1:=s1+s[1];
val(s1,a,j);
end
else a:=n;
tong:=n+a;
write('tong cua so ban dau va so moi la:',tong);
readln;
end.
*đây là bài 1, còn bài 2 để mai mk giải cho, khuya r
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *