Cho số tự nhiên n hãy viết chương trình cho biết trong số n^2 có bao nhiêu chữ số 3?
*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!
Trả lời (1)
-
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
bởi Nguyễn Minh Nhật
26/10/2018
Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
+ Các ước của n
+ Số lượng các ước của n
+ Tổng các ước của n
+ Xét tổng đó có phải là số hoàn hảo?
29/11/2022 | 0 Trả lời
-
Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn.
30/11/2022 | 0 Trả lời
-
vViết chương trình nhập 3 số a,b,h hãy biết só lớn nhất trong 3 số đó
07/12/2022 | 0 Trả lời
-
viết chương trình nhập vào hai số a,b .kiểm tra xem a ,b là số âm hay dương,chẳn hay lẻ.kiểm tra xem a có chia hết cho b hay không.kiểm tra xem a,b có chia hết cho 3 hay không
07/12/2022 | 0 Trả lời
-
Tìm input, output và mô tả thuật toán bài sau: xác định một số tự nhiên x bất kì để chứng minh là số chẵn không?
09/12/2022 | 0 Trả lời
-
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
14/12/2022 | 0 Trả lời
-
viết chương trình giải phương trình bậc nhất ax=b.Với a,b nhập bằng bàn phím Tin
17/12/2022 | 0 Trả lời
-
Cho x và y là 2 độ dài 2 cạnh của một hình chữ nhật. Viết chương trình so sánh 2 giá trị x, y và thông báo nó là hình vuông hay hình chữ nhật thường
18/12/2022 | 0 Trả lời
-
tại sao nguười ta không viết chương trình bằng ngôn ngữ máy?
19/12/2022 | 0 Trả lời
-
cú pháp khai báo biến cho ví dụ khai báo bến trong pascal
20/12/2022 | 0 Trả lời
-
tính quãng đường tào hỏa đi được trong thời gian t vận tốc v
21/12/2022 | 0 Trả lời
-
Em hãy xác định INPUT, OUTPUT và mô tả thuật toán của bài toán nhập vào 2 số nguyên dương a, b và in ra kết quả số a nếu a lớn hơn b và ngược lại in kết quả b. (Ví dụ : nhập 20, 9 in ra 20 ngược lại nhập 9,20 in ra 20).
25/12/2022 | 0 Trả lời
-
Viết chương trình hoàn chỉnh sử dụng câu lệnh điều kiện thực hiện nhập từ bàn phím giá trị của biến nguyên a và kiểm tra nếu a là số lẻ thì tính và in ra màn hình diện tích hình vuông với độ dài cạnh là 2a không thì đi tính chu vi hình vuông với độ dài cạnh là 2a?
Mô tả lại thuật toán giải bài toán trên
28/12/2022 | 0 Trả lời
-
Viết chương trình nhập vào một số nguyên a bất kỳ. Kiểm tra xem số a là số chẵn hay số lẻ. Nếu là số chẵn, tăng giá trị của a thêm 10 đơn vị; Nếu là số lẻ, giảm giá trị của a 10 đơn vị.
30/12/2022 | 0 Trả lời
-
viết công thức tính C=2/3*3/4*4/5....*n/n+1 (n>0)
31/01/2023 | 0 Trả lời
-
Viết chương trình tính tổng: S=1+3+5+...+999
09/02/2023 | 0 Trả lời
-
S=1+1/2^2+1/3^2+...+1/n^2. Trong đó N là một số nguyên được nhập vào từ bàn phím. S là tổng các phân số từ 1 đến n, sau khi tính toán tổng S được xuất ra màn hình.
09/02/2023 | 0 Trả lời
-
Sử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n(n+1)
24/02/2023 | 0 Trả lời
-
Viết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
05/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
09/03/2023 | 0 Trả lời
-
cho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?
28/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số sau đó sắp xếp theo thứ tự từ bé đến lớn?
05/04/2023 | 0 Trả lời
-
S:=1; For i:=1 to 5 do S:=S*i;
Giá trị của biến S bằng bao nhiêu?
A. 120
B. 55
C. 121
D. 151
12/04/2023 | 0 Trả lời
-
Viết chương trình pascal nhập hai số a;b (a>0 ; b>0) xuất ra màn hình các số chính phương từ a-b.
12/04/2023 | 0 Trả lời
-
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên . độ dài của dãy cũng đc nhập từ bàn phím .in ra màn hình tổng các giá trị là số lẻ
14/04/2023 | 0 Trả lời
