Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Gửi bài tập cần làm >> Bài tập tôi đã gửi lênLời giải tôi đã gửi lênGửi chia sẻ phương pháp học tập
Lazi.vn - Cộng đồng Tri thức & Giáo dục== Môn học == Âm nhạc Mỹ thuật Toán học Vật lý Hóa học Ngữ văn Tiếng Việt Tiếng Anh Đạo đức Khoa học Lịch sử Địa lý Sinh học Tin học Lập trình Công nghệ Thể dục Giáo dục Công dân Giáo dục Quốc phòng - An ninh Ngoại ngữ khác Xác suất thống kê Tài chính tiền tệ Khác == Trình độ lớp == Đại học Cấp 3 (Trung học phổ thông) - Lớp 12 - Lớp 11 - Lớp 10 Cấp 2 (Trung học cơ sở) - Lớp 9 - Lớp 8 - Lớp 7 - Lớp 6 Cấp 1 (Tiểu học) - Lớp 5 - Lớp 4 - Lớp 3 - Lớp 2 - Lớp 1 Trình độ khác Gửi bài tập bạn cần làm Bài tập | Bài tập chưa có lời giải >> | Bài tập tôi đã gửi lên >> | Phương pháp Học tập >> | Gửi bài tập >> Nội dung bạn tìm "
Viết chương trình cho phép tính trung bình cộng của 4 số
" có trong những liên kết dưới đây, nhấp chuột để xem chi tiết:Viết chương trình cho phép tính trung bình cộng của 4 số (Tin học - Lớp 8)
 |
Nguyễn Hiếu |
| Thứ 3, ngày 20/12/2016 03:41:26 |
Viết chương trình pascal tính: Tính diện tích của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím); Viết chương trình cho phép tính trung bình cộng của 4 số (số được nhập từ bàn phím); Viết chương trình cho phép tính trung bình nhân của 4 số với điều kiện chỉ được sử dụng 2 biến (được nhập từ bàn phím)(Tin học - Lớp 11)
 |
Huỳnh thắm |
| Chủ nhật, ngày 09/10/2016 02:11:22 |
a) Tính diện tích của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím)
b) Viết chương trình cho phép tính trung bình cộng của 4 số (số được nhập từ bàn phím)
c) Viết chương trình cho phép tính trung bình nhân của 4 số với điều kiện chỉ được sử dụng 2 biến (được nhập từ bàn phím) Xem chi tiết + Lời giải...
|
Xem tất cả >> | Gửi hình ảnh của bạn >>
Loading...
Đố vui
- Tìm chữ số tiếp theo của dãy: 5; 25; 29; 85; 89; ? (chưa có đáp án)
- Hạt gì không thể mọc thành cây mà còn làm cho cây tươi tốt? (chưa có đáp án)
- Có ông thợ săn đang đi trên đồi thì phát hiện cá hổ, ông ấy bắn con cá hổ ăn thịt người dù đã bắn trúng nhưng nó vẫn sống? Vì sao lại vô lý thế?
- Có một bà cụ bả tên là Nguyễn Thị Ở Dơ. Hỏi SĐT của bả là số bao nhiêu?
- Tên như cái túi, cái bì. Ở trong bọc trứng, da thì trắng phau?
Xem tất cả >> | Gửi đố vui IQ của bạn >>
Thăm dò Khảo sát ý kiến
- Bạn có yêu môn Văn không?
- Thằng mà mình để ý, con bạn không thân lắm cứ tỏ ra tốt với nó. Làm gì với thằng nhỏ và con bé?
- Idol của bạn là ai?
- Điểm thi môn nào thấp nhất?
- Bạn học lớp mấy?
- Edogawa Conan (Kudou Shinichi) và Kaito Kid (Kuroba Kaito), bạn thích ai hơn?
- Bạn thích bài nào trong LOVE LIVE?
- Bạn thích làm Vật lý, Toán tiếng Việt, Toán tiếng Anh, hay IOE hơn?
- Bạn thấy môn tiếng Anh cho vào bộ đề thi lên cấp 3 có hợp lí không?
- Mori Ran và Haibara Ai trong Conan, bạn thích ai hơn?
CT xác định tam giác vuông :
if (a*a = b*b+c*c) or (b*b =a*a+c*c) or (c*c = a*a+b*b) then write('la tam giac vuong');
Truc Thanh chương trình Turbo Pascal pn tải về máy tính của pn r thì không mở rộng đk đâu.
Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter
Trả lời:
Khởi động Turbo Pascal bằng một trong hai cách:
Cách 1: Nháy đúp chuột vào biểu tượng Turbo Pascal trên màn hình.
Cách 2: Nháy đúp chuột vào tên tệp Turbo.exe trong thư mục chứa tệp này (thường là thu mục con TB/BIN).
Chúc bạn học tốt!
cảm ơn bạn nhiều