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
- Tìm theo Lớp học
- Lớp 1
- Lớp 2
- Lớp 3
- Lớp 4
- Lớp 5
- Lớp 6
- Lớp 7
- Lớp 8
- Lớp 9
- Lớp 10
- Lớp 11
- Lớp 12
- Đại học
- Trình độ khác
- Tìm theo 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
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...
|
- 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?
- 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?
- Ai ghê gớm hơn
- Áo không dám mặc
- Thay thế
- Lũ ếch muốn có vua
- Ong Mật, Ong Vằn và Ong Bắp Cày
- Trùn và Cá
- Tất cả truyện cười >>
- Tất cả truyện ngụ ngôn >>
|
Lazi.vnBẢNG XẾP HẠNG TOP THÀNH VIÊN Tuần 17 - 23/12 | Tháng 12-2017 | Yêu thích
STT | Họ tên | Avatar | Điểm |
---|---|---|---|
1 | Huyền Thu | 203 | |
2 | Nguyễn Trần Lam Phong | 97 | |
3 | lê thị thùy diên | 65 | |
4 | Cao Dũng | 59 | |
5 | Baby cool ❤ | 57 |
Giải thưởng T.11 | Bảng Xếp Hạng |
[Đóng lại] |
- Trang chủ
- Hỏi đáp
- Học tập
- Trung tâm GD&ĐT
- Giới thiệu Sách hay
- Trường học
- Shop Lazi
- Gia sư
- Bản tin Giáo dục & Đào tạo
- Thi trắc nghiệm
- Tài liệu
- PP Học tập
- Khảo sát ý kiến
- Đố vui
- Mục tiêu của bạn
- Kết bạn bốn phương
- Đố vui IQ
- Truyện cười
- Tư duy logic
- Truyện ngụ ngôn
- Đuổi hình bắt chữ
- Video
- Những điều tốt đẹp
- Thơ văn danh ngôn
- Thế giới đó đây - Những điều kỳ thú
- Chia sẻ tâm sự - Bạn đọc viết
- Chương trình Sự kiện tại Lazi.vn
- Thống kê tổng quan
- Xem lịch
- Hôm nay
- Phòng trò chuyện
- Copyright ©2017 Lazi.vn
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!