Bạn đang xem: Bài 13
23) Viết lịch trình nhập lệ số nguyên ổn dương n. Xuất ra màn hình hiển thị 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)
23) Viết công tác nhập lệ số ngulặng dương n. Xuất ra màn hình hiển thị những chữ số thỏa ĐK là số nguyên ổn tố của n. Mỗi chữ số vị trí một mẫu.24) Viết chương trình nhtràn vào số nguyên dương n. Xuất ra screen quý hiếm vừa đủ cùng những chữ số lẻ của n. Kết trái được thiết kế tròn 3 chữ số thập phân. Nếu n không cất chữ số lẻ thì xuất ra -1. Pascal. Dùng longint cùng lệnh for. Giúp em với
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 thủ thuật 10;
kt:=true;
if kBà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 gian lận 10;
d:=0;
for i:=2 lớn k div 2 do
if k hack i=0 then d:=d+1;
if (d=0) and (k>=2) then writeln(k);
n:=n div 10;
end;
readln;
kết thúc.
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 hack 10) mod 2=1 then
begin
t:=t+n gian lận 10;
i:=i+1;
end;
n:=n div 10;
end;
if i=0 then write(‘-1’)
else write(‘Trung binch cong cac so le la: ‘,t/i:0:3);
readln;
end.
Daria
0
Reply
$: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