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.

1 tháng 11 2023

so lon nhat la: 94718                                                                                 so be nhat la: 10718

3 tháng 5 2023

1)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

3 tháng 5 2023

2)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

26 tháng 5 2021

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap N:' ); readln(n);

for i:=1 to n do 

begin

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

end;

write('Nhap vua nhap la: '); 

for i:=1 to n do write(a[i],' ');

readln

end.

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' ');
      readln;
end.

26 tháng 5 2021

program max_min;

uses crt;

var i,n:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

5 tháng 5 2023

a) var a:array[1..1000] of integer;

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b) 

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????

1 tháng 3 2016

toán lớp 4 mà bn, đây là cách giải đầy đủ nhất

Ta xét từng dãy số :

*S1: Ta nhận thấy : dãy trên toàn chữ số lẻ. Mà  1000 là số chẵn

=>1000 không thuộc  S1 

*S2:Ta nhận thấy :  dãy trên được viết theo quy luật : Mỗi số hạng ( kể từ số hạng thứ 2) bằng số hạng đứng trước nó cộng 4

Ta thấy :

2:4=0 dư 2                                              14:4=3 dư 2

6:4=1 dư 2                                           18:4=4 dư 2

10:4=2 dư 2                                        ………………….

Vậy dãy số trên là dãy số chia cho 4 dư 2

Mà  1000:4=250 dư 0

=>1000 không thuộc S2 

*S3: Ta nhận thấy : dãy trên được viết theo quy luật: Mỗi số hạng ( kể từ số hạng thứ 2) bằng số hạng đứng trước nó cộng  8.

Ta thấy :

4:8=0 dư 4                                     28:8=3 dư 4

12:8=1 dư 4                                   36:8=4 dư 4

20:8=2 dư 4                               …………..

Vậy dãy trên là dãy số chia cho 8 dư 4

Mà  1000:8=125 dư 0

=>1000 không thuộc  S3

*S4:Ta nhận thấy :dãy trên được viết theo quy luật: Mỗi số hạng (kể từ số hạng thứ 2) bằng số hạng thứ đứng trước nó cộng  16

8:16=0 dư 8                             56:16=3 dư 8

24:16=1 dư 8                           72:16=4 dư 8

40:16=2 dư 8                          ………………

Vậy dãy trên là dãy số chia cho 16 dư 8

Mà 1000:16=62 dư 8

=>1000 thuộc S4

Vậy 1000 nằm ở S4