K
Khách

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.

28 tháng 4 2023

x = 144

Làm giúp mình bài này với ạ! Mình đag cần gấp!!Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:Var a, Thunhap_TB: real; i:integer;Begin         Thunhap_TB := 0;         for i:=1 to 50 do         begin             write('Thu nhap cua gia dinh thu ', i);             readln(a);             Thunhap_TB + a        end;        Thunhap_TB := Thunhap_TB/50;        for i := 1 to 50 do begin   ...
Đọc tiếp

Làm giúp mình bài này với ạ! Mình đag cần gấp!!

Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:

Var a, Thunhap_TB: real; i:integer;

Begin

         Thunhap_TB := 0;

         for i:=1 to 50 do

         begin

             write('Thu nhap cua gia dinh thu ', i);

             readln(a);

             Thunhap_TB + a

        end;

        Thunhap_TB := Thunhap_TB/50;

        for i := 1 to 50 do begin

        write('Thu nhap cua gia dinh thu ',i); readln(a);

        writeln('Do lech so voi thu nhap TB la: ', a - Thunhap_TB)

        end;

End.

(Bài này là trong sgk tin 8/ tr71 nha mn nhưng mà cô giáo giao là thay vào biến kiểu mảng nhưng mình ko bt, bạn nào biết thì giải giúp mình nha, còn 2 ngày nữa là mình nộp cô r. Cảm ơn các bạn nhìu ạ <3 :333).

1

uses crt;

var a:array[1..50]of real;

i,n:integer;

t:real;

begin

clrscr;

for i:=1 to 50 do readln(a[i]);

t:=0; for i:=1 to 50 do t:=t+a[i];

writeln(t/50:4:2);

readln;

end.

24 tháng 2 2022

Cảm ơn ạ

 

19 tháng 12 2021

7

21 tháng 1 2022

Mọi người giúp mình với ạ mình cảm ơn nhiều.

 

3 tháng 5 2023

C1;
a. Số lần lặp của vòng lặp for i:= -5 to 15 là: 21 (15 - (-5) + 1)

b. Số lần lặp của vòng lặp for i:= 9 to 28 là: 20 (28 - 9 + 1)

C2:
a. Số lần lặp của vòng lặp for i:= 0 to 25 là: 26 (25 - 0 + 1)

b. Số lần lặp của vòng lặp for i:= -7 to 12 là: 20 (12 - (-7) + 1)

3 tháng 5 2023

Câu 1:

a) Số lần lặp:

15 - (-5) + 1 = 21 lần

b) Số lần lặp:

28 - 9 + 1 = 20 lần

Câu 2:

a) Số lần lặp:

25 - 0 + 1 = 26 lần

b) Số lần lặp:

12 - (-7) + 1 = 20 lần

13 tháng 5 2019

Lời giải :

Lỗi sai = ( )

1) While i(:)=1 do t:=10;

3) For i:=1 to 10 (;) do x:=x+1;

4) i:=1; while i<10 do sum:=sum+i; i:=i+1; ( câu lệnh này vẫn chạy được nhưng phải đặt trong begin...end;)

i:=1; while i<10 do ( begin) sum:=sum+i; i:=i+1; (end; )