Lời giải :
program hotrotinhoc ;
var a,b,i,dem : integer ;
kt : boolean ;
begin
kt:=true ;
write['a=']; readln[a];
write['b=']; readln[b];
if a=1 then kt:=false ;
dem:=0;
for i:= a to trunc[sqrt[b]] do
if b mod i = 0 then kt:= false ;
if kt = true then dem:=dem+1;
write['Co tat ca ',dem,' so nguyen to'];
readln
end.
Xin chào, mình là thành viên của team@1qqz hôm nay mình sẽ trả lời câu hỏi của bạn nha!!
Bạn tham khảo link này hộ mình nha: //www.hocpascal.online/2017/12/viet-chuong-trinh-nhap-vao-2-so-va-b.html
~~Cảm ơn đã xem, chúc bạn học tốt nhé!!^^blink blink!!!~~
#1
PlanBbyFESN
-
- Điều hành viên OLYMPIC
-
- 637 Bài viết
Thiếu úy
- Giới tính:Nữ
- Đến từ:THPT
Đã gửi 10-04-2016 - 10:37
Bài tập: Số nguyên tố rút gọn của một số tự nhiên n chính là tổng các ước nguyên tố của n.
Ví dụ: n=252=2.2.3.3.7 [n có 3 ước nguyên tố là 2, 3 và 7]
Số nguyên tố rút gọn của n là 2+3+7=12
Yêu cầu: a/ Nhập số tự nhiên n từ bàn phím, in ra số nguyên tố rút gọn của n. [1