Question

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

Answer 1

Câu 1. Tổ hợp phím: Ctrl + Z

Câu 2. Hàm AVERAGE

Answer 2

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.

Answer 3

Phần thưởng : 5GP cho bạn có full câu trả lời đúng nhé.

Answer 4

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.

Answer 5

1/ctrl+z

2/Hàm AVERAGE

3/B

4/?

Answer 6

Đá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.