?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

1.

Viet nam

2.

Hòa

1,

Việt Nam

2,

VIE 1-0 UAE

bạn phải viết 3 dòng trả lời

ng trên 10 sp k thì bạn đc 1 điểm

bn đã viết thành 2 dòng chx

Trả lời :

Trên vioedu k đổi đc tên nhé !!!

Mk cx hok trên đấy, kb k

~HT~

vào thông tin cá nhân máy ghi cài đặt thông tin ấn vào thông tin cá nhân rồi chuyển tên nhé

học tốt

ờm , /////// mk k bt nx

Ta thấy:

Giờ thứ nhất: 3 = 3 + 2 x 0

Giờ thứ hai: 5 = 3 + 2 x 0 + 2 x 1

giờ thứ ba: 9 = 3 + 2 x 0 + 2 x 1 + 2 x 2

Giờ thứ tư: 15 = 3 + 2 x 0 + 2 x 1 + 2 x 2 + 2 x 3

......

Vậy giờ thứ 20 sẽ phát ra: 3 + 2 x 0 + 2 x 1 + 2 x 2 + 2 x 3 + ... + 2 x 19 = 3 + 2 x (0 + 1 + 2 + 3 + ... + 19) = 3 + 2 x 190 = 383 (chiếc khẩu trang)

điểm trung bình mấy môn toán,tin,lí là 10 tất

điểm trung bình các môn của bản thân là 10 

uses crt;

var n,i,dem: integer;

tb: real;

A:array[1..1000] of integer;

writeln('Nhap do dai day: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,']='); read(a[i]);

end;

tb:=0;

for i :=1 to n do

begin tb:=tb+a[i]; dem:=dem+1; end;

tb:=tb/dem;

writeln('Gia tri Tb la: ',tb);

readln

@Lê Minh Vy:

-Sau dòng lệnh thứ 4 là lệnh Begin: dùng để chia giữa phần khai báo và phần thân và cuối chương trình thiếu lệnh end. để kết thúc chương trình.

-Lệnh nhập là readln không phải read: + dòng thứ 5 của bạn phải là readln(n); + dòng thứ 9 là readln(a[i]);

- Dòng 11,12,13 có thể gộp lên ở phần trên để đỡ chạy vòng for, rườm rà nhé :))

- Đề bài :viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím "và in ra dãy số nguyên đó" nên cuối bài, trước readln end. cần thêm lệnh

for i:=1 to n do write('day so nguyen la' a[i],' '); hoặc có thể bỏ ở vòng for ở trên gộp lại cũng được.

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Trong câu lệnh lặp kiểu dữ liệu kiểu dữ liệu của biến đếm là :

A, Real 

B, String 

C, If 

D,Var 

Đáp án:

B.String

Hok tốt