Những câu hỏi liên quan
Nguyễn Xuân Minh
Xem chi tiết
Nguyễn Khánh Linh
Xem chi tiết
Zoro
22 tháng 5 2017 lúc 20:14

Bạn Xuân viết số: 21435.

 k 1 cái nha

Bình luận (0)
công chúa dễ thương
22 tháng 5 2017 lúc 20:41

=21435 

kb nha

tk tui nha

Bình luận (0)
bach duong dang yeu
22 tháng 5 2017 lúc 20:47

21435 nhe ban

Bình luận (0)
Nguyễn Vân Giang
Xem chi tiết
trần thị kim trang
Xem chi tiết
trịnh hồng nhung
Xem chi tiết
Trần Đại Lực
12 tháng 10 2016 lúc 16:31

10347

Bình luận (0)
Nguyễn Tuấn Minh
12 tháng 10 2016 lúc 16:46

10347

Bình luận (0)
lucy heartfilia
12 tháng 10 2016 lúc 16:53

10347

Bình luận (0)
qwerty
Xem chi tiết
xữ nữ của tôi
15 tháng 3 2016 lúc 23:07

Y

Bình luận (0)
Say You Do
16 tháng 3 2016 lúc 11:55

bạn đăng 1 bài thôi

Bình luận (0)
Bùi Hoàng Tú
16 tháng 3 2016 lúc 17:09

SAY YOU DO đúng < đó là chữ b

Bình luận (0)
truong manh hung
Xem chi tiết
Trần Hải Đăng
30 tháng 3 2023 lúc 17:19

Viết phân số như này nhè: 1/2 

Bình luận (0)
Nguyễn Thị Thảo Nguyên
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Đỗ Thanh Tuyến
6 tháng 5 2021 lúc 23:54

1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:19

Câu 2: 

uses crt;

var a:array[1..30]of integer;

i,n,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

kt:=0;

for i:=1 to n-1 do 

if a[i]>=a[j] then kt:=1;

if kt=0 then writeln('Day la day so khong giam')

else writeln('Day khong la day so khong giam');

readln;

end.

Bình luận (0)
võ nguyên đức anh
12 tháng 4 2023 lúc 20:27

hi

Bình luận (0)