Viết Phương Trình Pascal: Cho haisố A và B làhaisốnguyêndươngvà A phảinhỏhơn B (0 < A, B < 100). Yêucầu: Viếtchươngtrìnhchophépnhậphaisố A và B đótừbànphím. Hãythựchiện: a) Tìmcácsốnguyêntốtừ A đến B. b) Tìmướcchunglớnnhấtcủa A và B.

hieudong145

2 năm trước

Viết Phương Trình Pascal: Cho haisố A và B làhaisốnguyêndươngvà A phảinhỏhơn B (0 < A, B < 100). Yêucầu: Viếtchươngtrìnhchophépnhậphaisố A và B đótừbànphím. Hãythựchiện: a) Tìmcácsốnguyêntốtừ A đến B. b) Tìmướcchunglớnnhấtcủa A và B. *mọi người giúp mik làm bt này nhé Thanks you very much ('<>')

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

Khaphan123

program baigiai;

uses crt;

var a,b,i,d,j,k:integer;

function ktnt(m:integer):boolean;

var l:integer;

begin

ktnt:=false;

if m<2 then exit;

for l:=2 to trunc(sqrt(m)) do

if m mod l=0 then exit;

ktnt:=true;

end;

begin

clrscr;

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

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

writeln('Cac so nguyen to la: ');

k:=0;

for i:=a to b do

begin

if ktnt(i) then

begin

write(i,' ');

k:=k+1;

end;

if k=0 then write('Khong co nha.');

writeln;

while a<>b do

if a>b then a:=a-b else b:=b-a;

write('uocchunglonnhat la: ',a);

readln;

end.

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

halocutephomaique

uses crt;

var a,b,i,d,j,k:integer;

begin

clrscr;

readln(a);

readln(b);

writeln('cac so nguyen to: ');

k:=0;

for i:=a to b do

begin

d:=0;

for j:=2 to i div 2 do

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

if d=0 then write(i,' ');

end;

if k=0 then writeln('khong co');//nếu thích k viết thì thay writeln.. thanh exit cx đc

while a<>b do

if a>b then a:=a-b else b:=b-a;

write('uoc chung lon nhat: ',a);

readln

end.

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

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

Tại sao càng xa xích đạo, sự chênh lệch thời gian ngày và đêm càng lớn?

Giúp em vói ạ. Em đg cần gấp. Em cảm ơn. Em sẽ cho ctlhn và 5 sao ạ

hôm nay nick chính em lên siêu sao rồi vẽ anime vui

Cách vẽ biểu đồ và dấu hiệu nhận biết biểu đồ ai có thể biết chỉ mình với ạ

Tìm tất cả các số a,b,c thỏa mãn a<b<c và (1+1/a)(1+1/b)(1+1/c)=4

Lời nói khi không được học cô dạy môn văn cũ

Bài 1. Tính diện tích của một hình thang vuông, biết 2 đáy có độ dài là 2cm và 4cm, góc tạo bởi một cạnh bên và đáy lớn có số đo bằng 450.

Cho tam giác abc vuông cân tại a d là trung đ ac vé đg tròn o đg kính dc cat bc tại e bd cắt đg tròn o tại f Cm abfc nội tiếp. góc afb=góc edc

suy nghĩ về câu nói : Có chí thì nên không chép mạng ạ mn giúp em với

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