Bài 1: Đếm các số chia hết cho 3 từ 1 đến 50. Bài 2: Nhập vào một số nguyên N. Kiểm tra N có phải là số nguyên tố hay ko? Viết chương trình, giải chi tiết hộ mk. Cảm ơn nhiều

byunghee1611

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 44 xem

1 trả lời

Thích Trả lời

duongcutetua8888

Bài 1:

program chiahetcho3;

uses crt;

var i,d:word;

begin

clrscr;

d:=0;

for i:=1 to 50 do

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

write('Tu 1 den 50 co ',d,' so chia het cho 3');

readln;

end.

Bài 2:

program songuyento;

uses crt;

var n,i,d:integer;

begin

clrscr;

write('Nhap so N can kiem tra: '); readln(n);

if n<2 then write(n,' khong phai so nguyen to')

else

begin

d:=0;

for i:=2 to n div 2 do

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

if d=0 then write(n,' la so nguyen to')

else write(n,' khong phai so nguyen to');

end;

readln;

end.

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

tranham65

Bài 1:

Program thichvaydo;

Uses crt;

Var dem,i: byte ;

Begin

Clrscr;

For i:=1 to 50 do

If i mod 3 = 0 then inc(dem);

Write('cac so chia het cho 3 tu 1 den 50 la',dem);

Readln

End.

Bài 2:

Program dacony;

Uses Crt;

Var n,d,k:longint;

Begin Clrscr;

write('n=');

Readln(n);

k:=0;

For d:=1 to n do

If n mod d = 0 then

k:=k+1;

If k=2 then

write ('n chinh la so nguyen to');

Readln;

End.

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

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

vẽ mặt cười hoặc lấy ảnh trên mạng

Viết một đoạn giới thiệu ngắn về bộ phim em đã hoặc đang xem hiện tại Giúp vs!!!!!!!!!! E cần gấp ạ!!!!!!! HỨa vote trả đủ!!!!!

toán 10.............................

Liệu tôi có nên tục??? Cảm thấy mình thật thảm hại💦💦 Vẽ anime mệt mỏi or anime buồn

viết một đoạn văn tả cảnh LỚP em vào giờ ra chơi? (Viết dài ra nhưng là đoạn văn)

toán 10 ................................

giải hộ tớ nhanh nhé tớ cần gấp cảm ơn

Đề bài: Hãy viết đoạn văn giới thiệu về một cuốn sách ( hoặc 1 bộ phim) mà em thích nhất

giải thích tại sao: a. bác sĩ thường khuyên mọi người nên uống từ 1,5 -2L nước 1 ngày b. người khiếm thị có thể đọc và viết được chữ nổi c. nhiều người sau khi tắm nắng một vài ngày, da thường bị đen đi d. người say rượu đi đứng không vững, dễ ngã e. khi tổn thương đại não trái sẽ làm tê liệt các phần thân bên phải và ngược lại f. những người bị chấn thương sọ não do tai nạn hoặc tai biến thường bị mất trí nhớ, bị liệt hoặc mất khả năng giao tiếp bằng ngôn ngữ em mong các thầy cô, các bạn và anh chị giúp bài tập ạ. em cảm ơn rất nhiều.

cho 20 gam hỗn hợp bột mg và fe tác dụng với dung dịch hcl dư thấy có 1gam khí h2 thoát ra a] viết phương trình phản ứng xảy ra b tính phần trăm về khối lượng của mỗi kim loại c tính khối lượng muối clorua tạo ra dung dịch

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