23) Viết chương trình nhập vào số nguyên dương n. Xuất ra màn hình các chữ số thỏa điều kiện là số nguyên tố của n. Mỗi chữ số nằm trên một dòng. 24) Viết chương trình nhập vào số nguyên dương n. Xuất ra màn hình giá trị trung bình cộng các chữ số lẻ của n. Kết quả được làm tròn

phannhi0933

2 năm trước

23) Viết chương trình nhập vào số nguyên dương n. Xuất ra màn hình các chữ số thỏa điều kiện là số nguyên tố của n. Mỗi chữ số nằm trên một dòng. 24) Viết chương trình nhập vào số nguyên dương n. Xuất ra màn hình giá trị trung bình cộng các chữ số lẻ của n. Kết quả được làm tròn 3 chữ số thập phân. Nếu n không chứa chữ số lẻ thì xuất ra -1. Pascal. Dùng longint và lệnh for. Giúp em với

Loga Sinh Học lớp 12

0 lượt thích 32 xem

1 trả lời

Thích Trả lời

lequochau0602

Bài 23:

program songuyentoc1;

uses crt;

var n:longint;

k,i:word;

kt:boolean;

begin

clrscr;

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

while n>0 do

begin

k:=n mod 10;

kt:=true;

if k<2 then kt:=false;

for i:=2 to k div 2 do

if k mod i=0 then kt:=false;

if kt=true then writeln(i);

end;

readln;

end.

Bài 23:

program songuyento;

uses crt;

var n,d:longint;

k,i:word;

begin

clrscr;

write('Nhap so: '); readln(n);

while n>0 do

begin

k:=n mod 10;

d:=0;

for i:=2 to k div 2 do

if k mod i=0 then d:=d+1;

if (d=0) and (k>=2) then writeln(k);

n:=n div 10;

end;

readln;

end.

Bài 24:

program trungbinh;

uses crt;

var n:longint;

i,t:word;

begin

clrscr;

write('Nhap so nguyen duong n: '); readln(n);

t:=0; i:=0;

while n>0 do

begin

if (n mod 10) mod 2=1 then

begin

t:=t+n mod 10;

i:=i+1;

end;

n:=n div 10;

end;

if i=0 then write('-1')

else write('Trung binh cong cac so le la: ',t/i:0:3);

readln;

end.

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

huynhvy5442

$:24$

program trungbinh;

uses crt;

var n:longint;i,t:word;beginclrscr;write('Nhap so nguyen duong n: '); readln(n);t:=0; i:=0,while n>0 do

begin

if (n mod 10) mod 2=1 then

t:=t+n mod 10; i:=i+1; n:=n div 10;if i=0 then write('-1')

else write('Trung binh cong cac so le la: ',t/i:0:3); readln;end.

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

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

Viết 1 đoạn văn 5-7 câu tả 1 ca sĩ đang biểu diễn. Trong câu có sử dụng câu ghép. Phân tích cấu tạo câu đó

Cho hình thang cân ABCD (AB//CD),biết AB =10 cm,CD = 30cm,BC = 13cm Kẻ AH vuông góc với CD a, tính diện tích hình thang ABCD b,tính diện tích tứ giác ABHD

Cho tam giác ABC. Từ các mệnh đề: P: “Tam giác ABC có hai góc bằng 60 0 Q: “ABC là một tam giác đều” Hãy phát biểu định lí P ⇒ Q. Nêu giả thiết, kết luận và phát biểu lại định lí này dưới dạng điều kiện cần, điều kiện đủ.

Help meee cần gấp trả lời nhanh nha

giúp mình với ạ, Underline the correct answer 1. We’ve had many / little / too many rain this winter. 2. Few / Much / A little people are as pretty as she is. 3. There’s been few / very little / a few news about the earthquake. 4. You must pay many / lots of / few attention to understand this. 5. Lots of / Much / Little flowers were planted in the garden. 6. A few / A little / Little students here have passed the exam. 7. There was many / few / much annoyance caused by her outbreak of anger.

Đọc khổ 4 câu thơ cuối của bài “Khi con tu hú”. a. Chỉ ra thán từ và tình thái từ có trong khổ thơ đó và cho biết ý nghĩa của chúng.

-Kể tên các loại bệnh ngoài da ? -Da bẩn có hại như thế nào ?

cho đường tròn (O) đường kính AB. Trên AB lấy 1 điểm C và trên đường tròn (O) lấy 1 điểm D ( D khác A và B). Gọi E là điểm chỉnh giữa của cung nhỏ BD. EC cắt đường tròn tại điểm thứ 2 là F. DF cắt AE tại G CMR: a. tứ giác AKCE nội tiếp b. CK vuông góc với AD c)c kẻ đường thẳng qua C song song với AD cắt DF tại H Chứng minh CH=CB

Cho tam giác ABC vuông ở A có AB = 12 cm, AC = 5 cm. Tính thể tích hình cầu có bán kính bằng bán kính đường tròn nội tiếp tam giác ABC. Giúp mình với ạ !!!!!!!!!!!!!

Trình bày điều kiện lịch sử và những nét chính về phong trào đấu tranh giành độc lập dân tộc, đòi quyền sống ở Châu Phi sau Chiến tranh thế giới thứ 2? Trong xu thế của thế giới ngày nay, Châu Phi đang đứng trước những thới cơ và thách thức gì

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