Viết chương trình nhập vào 2 số nguyên dương x, y(x<y)
-Đếm số các số chẵn và lớn hơn 100
_Tính tổng số lẻ hoặc chia hết cho 5 trong khoảng từ x đến y(làm bằng 2 cách for do và while do)
Cấu trúc rẽ nhánh và lặp
Viết chương trình tính tổng số lẻ:
Program vct;
Uses crt;
Var
S,x,y:integer;
begin
for i:=x to y do
begin
if (i mod 2 = 1) then S:=S+i;
end;
write(S);
readln;
end.
Viết chương trình tính tổng số chia hết cho 5:
Program vct;
Uses crt;
var
S,x,y:integer;
begin
for i:=x to y do
begin
if (i mod 5 = 0) then S:=S+i;
end;
write(S);
readln;
end.
Sử dụng lệnh while...do...(làm tương tự) thêm vào câu lệnh inc(i).
Đúng 0
Bình luận (1)
Xin lỗi mình thiếu phần nhập x,y;
Trước dòng lệnh for...do...(hoặc while...do...) thêm vào phần này nhé:
writeln('moi nhap x: '); readln(x);
writeln('moi nhap y: '); readln(y);
Đếm các số chẵn lớn hơn 100 (làm tương tự);
Lệnh if () then được thay vào là:
if ((i>100) and (i mod 2 = 0) then inc(dem);
Đúng 0
Bình luận (1)
Tý được mẹ giao nhiệm vụ đong gạo để mang đến nhà trọ. anh được mẹ đưa cho 2 loại bịch để đựng gạo, là loại 5kg và 3kg. tý dẽ phải đong đủ số gạomà mẹ cho vào 2 loại bịch trên.giúp anh ấy đong với số lượng bịch ít nhất có thể, nếu không đong được in ra -1
- dòng duy nhất chứa số N là số gạo mẹ tý cho (0N5000)
input: 18 4
otput: 4 -1
Đọc tiếp
Tý được mẹ giao nhiệm vụ đong gạo để mang đến nhà trọ. anh được mẹ đưa cho 2 loại bịch để đựng gạo, là loại 5kg và 3kg. tý dẽ phải đong đủ số gạomà mẹ cho vào 2 loại bịch trên.giúp anh ấy đong với số lượng bịch ít nhất có thể, nếu không đong được in ra -1
- dòng duy nhất chứa số N là số gạo mẹ tý cho (0<N<=5000)
input: 18 4
otput: 4 -1
XÉT 3 ĐIỂM P,Q,R NẰM TRÊN TRỤC HOÀNH CỦA MỘT HỆ TRỤC TỌA ĐỘ VUÔNG GÓC, CÓ HOÀNH ĐỘ TƯƠNG ỨNG LẦN LƯỢT LÀ X,Y,Z . GIẢ SỬ Y<Z. VIẾT CÂU LỆNH RẼ NHÁNH ĐỂ ĐIỂM Q NẰM GIỮA 2 ĐIỂM P VÀ R THÌ THÔNG BÁO RA MÀN HÌNH
AI GIÚP MÌNH VỚI Ạ, MÌNH XIN CẢM ƠN.
MAI MÌNH KIỂM TRA RỒI
HELP ME <3
Câu 1: Trong NNLT C++, các câu lệnh sau câu lênh nào đúng cấu trúc?
A. If ab then write(a la so lon nhat);
B. If (ab) couta la so lon nhat;
C. If (ab) then write (a la so lon nhat);
D. If (ab) couta la so nhat;
Câu 2: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If ab then cout(a la so lon nhat);
B. If (ab) couta la so lon nhat;
C. If (ab) then cout(a la so lon nhat);
D. If (ab) couta la so lon nhat;
Câu 3: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng...
Đọc tiếp
Câu 1: Trong NNLT C++, các câu lệnh sau câu lênh nào đúng cấu trúc?
A. If a>b then write("a la so lon nhat");
B. If (a>b) cout<<"a la so lon nhat";
C. If (a>b) then write ("a la so lon nhat");
D. If (a>b) cout<<"a la so nhat";
Câu 2: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If a>b then cout("a la so lon nhat");
B. If (a>b) cout<<"a la so lon nhat";
C. If (a>b) then cout<<("a la so lon nhat");
D. If (a>b) cout>>"a la so lon nhat";
Câu 3: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If (a>b) Max=a else;Max=b
B. If (a>b) Max=a else Max=b
C. If (a>b) Max=a; else Max=b;
D. If (a>b); Max=a; else Max=b;
Câu 4: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If (a>b) Max=a else;
B. If (a>b) Max=a else
C. If (a>b) Max=a;
D. If (a>b) ; Max=a;
Câu 1: B
Câu 2: B
Câu 3: C
Câu 4: C
Đúng 0
Bình luận (0)
1. Tính giá trị của biểu thức 2a/(5(a - b))
2. Nhập 1 số n ( có 3 chữ số) tính tổng các chữ số lẻ.
3. Nhập vào 2 số a,b (0) cho biết chúng cùng dấu hay trái dấu.
Xem chi tiết
Viết chương trình nhập vào từ bàn phím hai số nguyên x y nếu x>y thì đưa ra màn hình x-y ngược lại đưa ra màn hình x+y
Xem chi tiết
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
Sau khi thực hiên đoạn lệnh sau, thì màn hình hiện lên kết quả nào?
a:=1; b:=2;
a:=a+b;
if a<b then a:=a+2 else a:=a+3;
write(a);
A.5 B.7 C.6 D.4
Sau khi thực hiện đoạn lệnh sau, thì m có giá trị bằng mấy?
M:=1:
While m<0 do m:=m+1;
Write(m);
A.11 B.9 C.8 D.10
Biết ngay đề bài có vấn đề mà, cách tốt nhất để xem nó in ra màn hình cái gì là đánh vô Free Pascal
Đó, xem lại đề bài đi bạn :v
Đúng 2
Bình luận (0)
Sau khi thực hiện đoạn lệnh sau, thì n có giá trị bằng mấy?
n:=1;
for i:=1 to 5 do n:=n+1;
A.4 B.5 C.6 D.7
Đầu tiên n=1
Cứ tăng i lên 1 đơn vị thì n lúc sau bằng n ban đầu +1
Lần thứ nhất n=1+1=2
Lần thứ 2: n=2+1=3
Lt3: n=3+1=4
Lt4: n=4+1=5
Lt5: n=5+1=6
===> C.6
Đúng 1
Bình luận (0)
Em hãy viết một chương trình hoàn chỉnh có sử dụng cấu trúc lặp và cấu trúc rẻ nhánh?
Xem chi tiết
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2<>0 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else begin
for i:=1 to n do
if i mod 2=0 then write(i:4);
end;
readln;
end.
Đúng 1
Bình luận (0)