Viết chương trình pascal nhập số n có đúng 3 chữ số (nếu sai thì thông báo trên màn hình không thực hiện thực hiện kiểm tra n có phải là số chính phương không? tính tổng các chữ số n xuất ra màn hình các số chính phương từ 0 đến tổng các chữ số của n (tính ở câu trên) giúp mình v

Logabarca

2 năm trước

Viết chương trình pascal nhập số n có đúng 3 chữ số (nếu sai thì thông báo trên màn hình không thực hiện thực hiện kiểm tra n có phải là số chính phương không? tính tổng các chữ số n xuất ra màn hình các số chính phương từ 0 đến tổng các chữ số của n (tính ở câu trên) giúp mình vs đề thi ấy!!!

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

kimnhung99py

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Program BTT;
Uses crt;
Var n,i,s: integer;

Function SCP(b: longint): boolean;
Begin
If b=sqr(trunc(sqrt(b))) then exit(true);
exit(false);
End;

Begin
Clrscr;
Write('Nhap n: '); Readln(n);

If (n>99) and (n<1000) then
Begin
If SCP(n) then Writeln(n,' la so chinh phuong')
Else Writeln(n,' khong phai so chinh phuong');

s:=0;
While n<>0 do
Begin
s:=s+n mod 10;
n:=n div 10;
End;
Writeln('Tong cac chu so cua n la: ',s);
Write('Cac so chinh phuong tu 1 den ',s,' la: ');
For i:=1 to s do
If SCP(i) then Write(i,' ');
End

Else Write('Khong thuc hien!');
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

thanhdat181197

Program bt;
uses crt;
var a,code,n,i,m,s: integer;
st:string;
Begin
Clrscr;
read(n);
str(n,st);
if length(st) <> 3 then
begin
clrscr;
write('So nhap vao khong dung yeu cau!');
end
else
Begin
m:= trunc(sqrt(n));
if (sqr(m) = n) then writeln(m,' la so chinh phuong')
else writeln(n,' khong phai la so chinh phuong');
s:=0;
for i:= 1 to length(st) do
begin
val(st[i],a,code);
if code = 0 then s:=s+a;
end;
writeln('Tong cac chu so cua ',n,' la : ',s);
for i:= 0 to s do
begin
m:=trunc(sqrt(i));
if (sqr(m) = i) then writeln(i);
end;
end;
Readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho ΔABC vuông tại A, đường cao AH. từ H kẻ HI ⊥ AB,HJ ⊥AC. M là trung điểm của BC a)AIHJ là hình chữ nhật b)gọi D đối xứng vs H qua I, E đối xứng vs H qua J.CMR:DAIJ là hình bình hành c) ΔMDE cân

vẽ sơ đồ nguyên lý và sơ đồ lắp đặt mạng điện gồm 2 cầu chì ,1 công tắc 2 cực, 1 ổ cắm, 1 bóng đèn dây tóc Huhu giúp mình với

Câu 1 ; The Pikes live ______farming.They work hard_____the field everyday a. on/in b. at/with c. in/on d. with/for Câu 2: The World War II ____ in 1939 and ____ in 1945 a. begins/ends b. had begun/ended c. has begun/had ended d. began/ended Câu 3:Now he ___more money than he____ last year a. is earning/ does b. earns/did c. can earn/ was d. is earning/ did Câu 4: I _____ a glass of milk before class this morning a. have b. am having c. had d. was playing Câu 5: The parents of these disabled children ____ believe that their children could not learn anything. Now they have realized that they were wrong a. never b. used to c. once d. did not Câu 6: Carl showers everyday. He ____a shower everyday a. used to take b. is used to take c. is accustomed to taking d. gets used to take

Phát biểu cảm nghĩ về nhân vật Sơn Tinh ( từ 10 - 15 câu ) CHÚ Ý : không chép trên mạng hay sách tham khảo nhé ! XIN TRÂN TRỌNG CẢM ƠN !!!

3 bạn bảo ,vệ,biển góp đc 120nghìn để ủng hộ học sinh nghèo.hỏi mỗi bạn góp đc bao nhiêu tiền.biết rằng số tiền của 3bạn góp theo thứ tự tỉ lệ với 2;1;3

từ việc nghiên cứu lịch sử xã hội nguyên thủy chúng ta được những quy luật gì

Tại sao khi Trái Đất chuyển động quanh mặt trời lại sinh ra hiện tượng ngày đêm dài ngắn khác nhau theo mùa và theo vĩ độ? trình bày hiện tượng ngày đêm trên Trái Đất vào ngày 22/6?

Ở bí người ta xét sư di truyền của 2 tính trạng: Tính trạng hình dạng quả bí gồm quả tròn và quả dài. Tính trạng màu hoa gồm màu vàng và màu trắng. Mỗi cặp tính trạng trên đều do một cặp gen qui định. Cho lai hai cây bí chưa biết kiểu hình, thế hệ lai F1 có tỉ lệ phân ly về kiểu hình như sau: - 56,25% Bí quả tròn, hoa vàng - 18,75% Bí quả tròn, hoa trắng - 18,75% Bí quả dài, hoa vàng - 6, 25% Bí quả dài, hoa trắng a. Xác định tính trội, lặn? b. Phép lai di truyền theo quy luật di truyền nào? c. Xác định kiểu gen và kiểu hình của P và viết sơ đồ lai?

có ai biết vở trắc nghiệm Toán lớp 5 tiết 75, 77, 78

đột biến gen là gì ? tại sao đội biến gen thường có hại cho bản thân sinh vật ? nêu vai trò của đột biến gen

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến