Khét thế mang điện thoại lên lớp luôn mà ko sợ cô bới
B2:
uses crt;
var n,i,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 then write('phai')
else writeln('khong phai');
readln;
end.
Khét thế mang điện thoại lên lớp luôn mà ko sợ cô bới
B2:
uses crt;
var n,i,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 then write('phai')
else writeln('khong phai');
readln;
end.
Các bạn giúp mình với!!!
Mọi người ơi, giúp mình với!!!
Các bạn giúp mình bài này với. Rất cảm ơn ạ!
Bài toán: Lan, Hà, Mai lần lượt có sô tuổi khác nhau, biết số tuổi của các bạn được nhập từ bàn phím. hãy viết chương trình in ra màn hình tổng số tuổi của ba bạn. giải hộ mình bài này với!!!
giúp vs các bn ơi
Câu hỏi: Em hãy viết cú pháp câu lệnh điều kiện dạng đủ và nêu cách hoạt động của câu lệnh? Cho ví dụ.
P/S: bạn nào biết trả lời giúp mình với, đang cần gấp lắm ạ!
Viết chương trình tính hóa đơn mua hàng, nếu hóa đơn hơn 100000 đồng thì được giảm giá 10%.
Giúp tớ với mọi người ơi !!
viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n
+các số chính phương từ 0 đến n
+các số hoàn hảo từ 1 đến n
Làm giúp mình với!!!
nêu câu lệnh đk dạng đủ trong pascal và giải thích ?
mọi người ơi giúp mk với mk sắp thi học kì rồi>_<
Mô tả thuật toán và viết chương trình giải phương trình bậc nhất 1 ẩn a*x+b=0
@Lovers giúp mình vs