viết chương trình nhập từ bàn phím hai số a và b in ra màn hình kết quả tổng và tích của chúng kiểm tra xem số a và b có phải là số nguyên tố không

dauthithunguyet

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

thao22

var a, b: integer;

Function kt(x: word): boolean;

Var i: word;

Begin

For i:=2 to trunc(sqrt(x)) do

If x mod i=0 then exit(false);

Exit(false);

End;

Begin

Write('nhap a va b: '); readln(a, b);

Writeln('tong: ', a+b);

writeln('tich: ', a*b);

If kt(a)=true

then writeln(a, ' la so nguyen to')

Else writeln(a, ' ko la so nguyen to');

If kt(b)=true

then writeln(b, ' la so nguyen to')

Else writeln(b, ' ko la so nguyen to');

Readln

End.

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

khanhhanguyenthi12345678

uses crt;
var a,b: integer;

{---Hàm kiểm tra tính nguyên tố---}
snt:boolean;
function ktnt(c:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
if c<=1 then kt:=false;
for i:=2 to trunc(sqrt(c)) do
if (c mod i = 0) then kt:=false;
ktnt:=kt;
end;

{----Phần chương trình chính---}
begin
clrscr;
write('Nhap a,b tuong ung: '); readln(a,b);
writeln('Tich a va b : ',a*b);
writeln('Tong a va b: ', a+b);
if ktnt(a) then writeln(a,' la so nguyen to') else writeln(a,' khong la so nguyen to');
if ktnt(b) then writeln(b,' la so nguyen to') else writeln(b,'khong la so nguyen to');
readln;
end.

đã test mong đc vote

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

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

So sánh trào cần vương và phong trào tự vệ. Gấp !!!! 15 p nữa em kt rồi.

Cho tam giác ABC vuông tại A có AB= 12cm; AC= 16cm; kẻ đường cao AH, đường phân giác trong AD. a) Chứng minh: tam giác ABC đồng dạng với tam giác HBA. b) tính Sabd/Sadc. c) Tính BC, BD, AH ? d) tính S tam giác AHD.

Phân tích nhân vật ông giuốc đanh

Giúp mình câu 3, chi tiết sẽ được CTLHN . Hình hơi mờ, tất cả mũ 2 hết nha

Phan biệt nhân nghĩa với nhân đạo

Tìm $ x $: $ 5 $$ x $ $ = $ $ 3 $$ x $ $ + $ $ 8 $

trả lời giúp e bài 6 và 7 nha .. hết luôn ạ em tặng 20d

vẽ dùm mik tranh đề tài quê hương mà vẽ kiểu như đứng trên đồi nhìn xuống thấy cánh đồng những ngôi nhà con người tí xíu mik xem tham khảo để mik thi Mĩ Thuật nhe cảm mơn nhiều

Vì sao đường tan trong nước nóng nhanh hơn tron nước lạnh?

Đặt dùm mình 5 câu hỏi HAY về cuộc khởi nghĩa Phan Bá Vành

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