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.
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
t=40,i=25. Giải chi tiết là sao. Cô mình dạy cho mình cách giải là ghi đáp án thui mà.Thông cảm nhen.
uses crt;
var t,i:integer;
begin
clrscr;
t:=0; i:=1;
while i<=20 do
begin
t:=t+i;
i:=i+2;
end;
writeln('Tong cac so le tu 1 toi 20 la: ',t);
readln;
end.
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
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.
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.
bạn ơi thuật toán cho là b>=5,5 nên bạn cx phải gán như vật nha . với sau lệnh gán b bạn nên có dấu ;
Chương trình:
uses crt;
var a,b:integer;
begin
clrscr;
a:=10;
b:=1;
while b<=5.5 do
begin
b:=b+1.5
a:=a+b;
end;
writeln('a = ',a);
writeln('b = ',b);
readln;
end.
program son;
var
i,n:integer;
a:array[1..32000] of integer;
begin
write(' nhap n : '); readln(n);
for i:= 1 to n do
begin
write(' nhap a[',i,']');
readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i],' ')
readln
end.
Program hotrotinhoc ;
var n,i : integer ;
begin
write('Nhap gia tri cua n:'); readln(n);
i:=1;
while i <= n do
begin
i:=i+2 ;
if i mod 2 = 1 then write(i);
end;
readln
end.