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.

30 tháng 4 2019

B2 ko rõ ràng nha bạn, nếu bạn ghi như z nghĩa là biến t nhận giá trị là 6 mất rùi...

30 tháng 4 2019

Mk viế tnhầm từ khi sửa lại thành thì nha giúp mk ik

7 tháng 10 2020
#include <iostream> using namespace std; int main() { int j = 0, T = 100; if (T < 20) { cout << "T: " << T << endl; cout << "j: " << j << endl; } cout << "T: " << T << endl; cout << "j: " << j << endl; } //Lặp lại 1 lần
7 tháng 10 2020
#include <iostream> using namespace std; int main() { int j = 0, T = 100; if (T < 20) { cout << "T: " << T << endl; cout << "j: " << j << endl; } cout << "T: " << T << endl; cout << "j: " << j << endl; } //Lặp lại 1 lần
27 tháng 4 2017

a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.

Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.

b) Viết chương trình thể hiện thuật toán 1.

Program tính_toán;

Var j,T : integer;

begin

j:=0; T:=20;

While T >= 6 do

begin j:=j+2;

T:=T-j end;

Writeln ('Kết quả của j là :', j);

Writeln ('Kết quả của T là :', T);

readln

end.

Program tính_toán;

Var j,T : integer;

begin

j:=0; T:=20;

While T >= 6 do

begin j:=j+2;

T:=T-j end;

Writeln ('Kết quả của j là :', j);

Writeln ('Kết quả của T là :', T);

readln

end.

Viết chương trình thể hiện thuật toán 2.

Program tính_toán;

Var j,T : real;

begin

j:=0; T:=10;

While T <= 10 do

begin j:=j+3;

T:=T+j end;

Writeln ('Kết quả của j là :', j);

Writeln ('Kết quả của T là :', T);

readln

end.

27 tháng 4 2017

a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.

Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.

b) Viết chương trình thể hiện thuật toán 1.

Program tính_toán;

Var j,T : integer;

begin

j:=0; T:=20;

While T >= 6 do

begin j:=j+2;

T:=T-j end;

Writeln ('Kết quả của j là :', j);

Writeln ('Kết quả của T là :', T);

readln

end.

Viết chương trình thể hiện thuật toán 2.

Program tính_toán;

Var j,T : real;

begin

j:=0; T:=10;

While T <= 10 do

begin j:=j+3;

T:=T+j end;

Writeln ('Kết quả của j là :', j);

Writeln ('Kết quả của T là :', T);

readln

end.