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

có thể bằng 2, 1 và 11

bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1  giọt

còn bằng 11 vì 1 thêm một số 1 nữa là 11

1+1=2

hok tốt

có hậu

mk sẽ lấy 3 câu trả lời nhanh nhất   sẽ đc mk k nha m.n

program tongduong;

uses crt;

var a:array[1..100] of integer;n,i,s:integer;

begin

clrscr;

s:=0;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;

for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];

write(' Tong cac so duong trong day la',s);

readln

end.

Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))

uses crt;

var a:array[1..249]of integer;

i,n,t,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<250);