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.

20 tháng 7 2018

Số phần tử của A là:

(10-0)+1=11(phần tử)

20 tháng 7 2018

11 phần tử

27 tháng 1 2022

A:

mặt hay đuôi

B:

Mặt, đuôi

đuôi, mặt

Mặt, mặt

Đuôi, đuôi

C:

Mặt, đuôi, mặt

mặt, mặt, mặt

đuôi, đuôi, đuôi

đuôi, mặt, đuôi

đuôi, mặt, mặt

mặt, đuôi, đuôi

 

Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tửa, in ra màn hình mảng vừa nhập (bỏ qua phần này!)b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong...
Đọc tiếp

Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tử
a, in ra màn hình mảng vừa nhập (bỏ qua phần này!)
b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.
c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.
d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong mảng.
e, tìm số xuất hiện nhiều nhất(lặp lại lắm nhất) và số lần xuất hiện của số đó trong mảng.( Nếu tìm được nhiều số có số lần xuất hiện bằng nhau thì chỉ cần in ra số tìm được đầu tiên ).

f, đếm xem trong mảng có bao nhiêu số thân thiện :)) ( Số thân thiện là số có nhiều hơn 1 chữ số và nó chia hết cho TỔNG các chữ số của nó).


                ----------làm bằng procedure và function giúp mình kaka------------

<3 Cảm ơn các procoder :))

0
AH
Akai Haruma
Giáo viên
15 tháng 9 2021

Lời giải:
$A=\left\{n\in\mathbb{N}^*|\text{n là số nguyên tố nhỏ hơn 13}\right\}$

$B=\left\{4k|k\in\mathbb{N},k \leq 5\right\}$

30 tháng 12 2020

uses crt;

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

i,t:integer;

begin

clrscr;

for i:=1 to 200 do 

  begin

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

end;

writeln('Cac phan tu le nho hon 200 la: ');

for i:=1 to n do 

  if (a[i] mod 2<>0) and (a[i]<200) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if (50<a[i]) and (a[i]<80) then t:=t+sqr(a[i]);

writeln('Tong binh phuong cac phan tu thuoc khoang (50;80) la: ',t);

readln;

end.

11 tháng 11 2021

c6

11 tháng 11 2021

C

DD
28 tháng 1 2021

Nhiệt độ ở SaPa vào buổi trưa là: \(15+3=18\left(^oC\right)\)

 Nhiệt ở SaPa vào buổi trưa là :

\(15+3=18\left(^0C\right)\)

Đáp số : \(18^0C\)

\(A=\left\{22;24;26;28;30;32;34\right\}\)

\(B=\left\{151;153;155;157;159\right\}\)

30 tháng 10 2021

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

for i:=1 to n do 

  write(a[i]:4);

writeln;

for i:=1 to n do 

  if (a[i]+a[i+1] mod 10=0) then 

begin

writeln(a[i],' ',a[i+1]);

writeln(i,' ',i+1);

end;

readln;

end.

9 tháng 11 2021

Có vẻ saii ;\