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 2019

Lời giải :

a) Vòng lặp chạy 0 vòng , T=70 , j=0 .

b) program hotrotinhoc ;

var j,t : integer ;

begin

T:=70; j:=0;

while T<20 do

begin

j:=j+10;

t:=t-j;

end;

writeln('T=',T);

write('j=',j);

readln

end.

9 tháng 5 2018

B1 : j : =0

      T :=105

While T>= 20 do begin j := j + 5 T :=T - j ; end;

Write \((T)\); write\((j)\)

Bài thuật toán kiểu j vậy??

Mk thấy đây là môn Tin học mà

Chúc bạn học tốt~

10 tháng 5 2018

Giải chi tiết hộ mik với Huỳnh Quang Sang

31 tháng 12 2020

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i]>0 thì dem←dem+1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất dem

Bước 7: Kết thúc

31 tháng 12 2020

Input: Số nguyên N và dãy a1,a2,...,aN

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

- Bước 2: d←0; i←1;

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

- Bước 5: i←i+1, quay lại bước 3

21 tháng 3 2023

Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi

 

Cho thuật toán sau:        - B1: A :=0;b :=1;                        - B2: Nếu  A≤ 30  thì chuyển qua B3, ngược lại  A > 30 thì chuyển B4;                - B3:i :=b+2 ; A:=A+b;  và quay lại B2            - B4: In ra kết quả và kết thúc thuật toán    Program Bai9;Uses CRT;Var A,b:integer;Begin    A:= 0, J:=1;    While  A<= 30 do         Begin i := b +2;A := A + b;End;    Writeln(A);    Readln;End.                    a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính...
Đọc tiếp

Cho thuật toán sau:

        - B1: A :=0;b :=1;                

        - B2: Nếu  A≤ 30  thì chuyển qua B3, ngược lại  A > 30 thì chuyển B4;        

        - B3:i :=b+2 ; A:=A+b;  và quay lại B2            

- B4: In ra kết quả và kết thúc thuật toán    
Program Bai9;

Uses CRT;

Var A,b:integer;

Begin

    A:= 0, J:=1;

    While  A<= 30 do

         Begin i := b +2;A := A + b;End;

    Writeln(A);

    Readln;

End.

                    

a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu (1,0 điểm)

b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.

1

a: Thực hiện 5 vòng lặp

T=35

j=11

b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi