Question Tin hoc
Câu 1: Trong Paint để khôi phục lại hình ảnh đã xóa ta ấn tổ hợp phím nào?
Câu 2: Hàm tính tổng trung bình cộng của 1 dãy số trong bảng tính điện tử là gì?
Câu 3: Câu lệnh nào sau đây là sai :
A. a:=a+a;
B. If a mod b = 1 do dec(t);
C. T:=HOC24
D. Inc(d);
Câu 4: Viết chương trình nhập vào 1 mảng gồm n phần tử và đếm các số có chữ số hàng chục có đơn vị là 0.
Lưu ý : Dãy số được viết trên 1 dòng
Câu 1. Tổ hợp phím: Ctrl + Z
Câu 2. Hàm AVERAGE
Câu 1: Ctrl+Z
Câu 2: Hàm AVERAGE
Câu 3: B,C
Câu 4:
Program cau4;
Uses crt;
Var i,n,dem: integer;
a: array[1..32000] of integer;
Function KT(x: integer): boolean;
var v: string;
BEGIN
KT:=true;
str(x,v);
if v[length(v)-1]='0' then exit;
KT:=false;
END;
BEGIN
write('Nhap n=');
readln(N);
Writeln('Nhap cac phan tu');
for i:=1 to n do
read(a[i]);
For i:=1 to n do
IF KT(a[i]) and (a[i] div 100>0) then dem:=dem+1;
Write('Co tat ca ',dem,' so chu so co so 0 o hang chuc');
readln
end.
Phần thưởng : 5GP cho bạn có full câu trả lời đúng nhé.
Câu 2:
Hàm tính tổng trung bình cộng của 1 dãy số trong bảng tính điện tử là AVERAGE
Câu 3: B
Câu 4:
uses crt;
var a:array[1..100]of integer;
st:string;
n,i,dem,d:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------------------------------------------}
dem:=0;
for i:=1 to n do
begin
str(a[i],st);
d:=length(st);
if st[d-1]='0' then inc(dem);
end;
writeln('so cac so co chu so hang chuc la 0 la: ',dem);
readln;
end.
1/ctrl+z
2/Hàm AVERAGE
3/B
4/?
Đáp án:
Câu 1: Để hoàn tắc lại hình ảnh đã xóa ta ấn tổ hợp phím : CTRL+Z
Câu 2: Hàm tính tổng trung bình cộng của 1 dãy số trong bảng tính điện tử là AVERAGE . Hàm tính tổng trung bình cộng trong bảng tính điện tử được sử dụng với cú pháp AVEGAGE(a,b,c,....)
Câu 3: Câu lệnh sai là B và C
B sai bởi vì : Sai cú pháp của câu điều kiện
* Cú pháp đúng :If <điều kiện> then <câu lệnh>;
C sai bởi vì: Gán sai. Cách gán đúng: T='HOC24';
Câu 4: Một số lỗi của các bạn không để ý.
- Số có chữ số 0 hàng chục thì bắt buộc phải có từ 3 chữ số trở lên. Các bạn không chú ý đến cái này , nếu ấn 01 02 thì nó vẫn tính có chữ số 0 ở hàng chục.
- Các bạn thường sử dụng xâu kí tự để làm. Nhưng mình đã viết lưu ý dãy số được viết trên cùng 1 dòng thì không thể làm mảng a[i] thuộc kiểu dữ liệu string .
Lời giải :
Program hotrotinhoc;
var i,d,n:integer;
a: array[1..10000] of integer;
Function dem(x: integer ): integer;
var t,v: integer;
begin
t:=x mod 100;
v:=t div 10;
dem:=v;
end;
begin
readln(n);
d:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do
if (a[i] div 100>0) and (dem(a[i])=0) then inc(d);
write(d);
readln
end.
