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.
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?
a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ
2) Cấu trúc rẽ nhánh dạng đầy đủ:
a) If điều kiện then câu lệnh 1; else câu lệnh 2;
b) If điều kiện then câu lệnh 1else câu lệnh 2;
c) If điều kiện then câu lệnh;
d) If điều kiện then câu lệnh else câu lệnh;
3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :
a) If X mod 2= 0 then Writeln(' X là số lẻ ');
b) If X mod 2= 0 then Writeln(' X là số chẵn ');
c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');
d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');
4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
a) max:=x; If y < max then max:= y else max:= z;
b) max:=x; If y > max then max:= y else max:= z;
c) max:=x; If y > max then max:= y; if z > max then max:= z;
d) max:=x; If y < max then max:= y; if z < max then max:= z;
5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu
a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;
6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:
a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;
c) If a > b then max = a; d) If x := a + b then x: =x + 1;
1.C
2.A
4.A
5.A
6.D
7.C
8.A
III.
Program HOC24;
var n,d: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=1 then
begin
begin
n:=n+1;
write(n,' ');
end;
d:=1;
while d<20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end else
begin
d:=1;
while d<=20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end;
readln
end.
bt trc hay hok bt trc bn?
nếu bt trc là C
còn hok bt trc là D nha://
Câu B