Cho đoạn chương trình
n:=1; T:=50 while n<20 do begin n:=n+5; T:=T-n;
end;
Kết thúc vòng lặp thì T bằng bao nhiêu?
(Giải chi tiết giúp mình)
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.
HP
1
27 tháng 4 2023
Để mở tệp trình chiếu đã có: Trên bảng chọn File, nháy chọn lệnh Open. Sau đó, chọn tệp cần mở trong thư mục lưu trữ và chọn Open.
KV
27 tháng 4 2023
Var array:[1..1000] of integer;
i,n,x:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('x = ');readln(x);
Write('Cac so lon hon ',x,' la ');
For i:=1 to n do
If a[i] > x then write(a[i]:8);
Readln
End.
giúp tôi c10 tn với c11 tl i
KV
28 tháng 4 2023
Câu 10 TN:
t = 8
Câu 11 TL
1) {5} {4} {2} {1} {3}
2) Chương trình trên dùng để tính tổng các số từ 1 đến n (n = 10)
3) n = 3; S = 6
KV
28 tháng 4 2023
var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
KV
28 tháng 4 2023
Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,tbc:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
KV
28 tháng 4 2023
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
27 tháng 4 2023
Làm như z có đg ko
Uses crt;
Var n,i: integer;
A: Array[1..1000] of integer;
Begin
clrscr;
Repeat
Write('Nhap n: '); Readln(n);
Until (n<103) and (n>0);
a)
For i:=1 to n do
begin
Write('Nhap phan tu A[',i,']= ');
Readln(A[i]);
end;
b)
Write('Cac phan tu chan co trong mang: ');
For i:=1 to n do
If A[i] mod 2=0 then write(A[i],' ');
writeln;
c)
Write('Cac phan tu le co trong mang: ');
For i:=1 to n do
If A[i] mod 2=1 then write(A[i],' ');
Readln
End.
H9
HT.Phong (9A5)
CTVHS
27 tháng 4 2023
Uses crt;
var i,n: longint;
a: array[1..103] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do if(a[i] mod 2=0) then write(a[i],' ');
for i:=1 to n do if(a[i] mod 2<>0) then write(a[i],' ');
readln;
end.
H9
HT.Phong (9A5)
CTVHS
27 tháng 4 2023
Chia hết cho 2 thì viết " mod 2=0 " có nghĩa là số này chia cho 2 không dư
Không chia hết cho 2 thì viết " mod 2<>0 " có nghĩa là số này chia cho 2 có dư