Số cần tìm :

 100 x 100 = 10000

      Đ/s : 10000

Tk nhé

Số cần tìm là:

100x100=10000

Đáp số:..............................................................

Ai trên 10 điểm hỏi đáp thì mình nha mình đang cần gấp chỉ còn 99 điểm là tròn rồi mong các bạn hỗ trợ mình sẽ đền bù xứng đáng

tích nha 

100 x 100 = 10000

           đáp số : 10000

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Chắc một phần là do mạng đó bạn.

ko,mk thấy mạng chạy tốt mà chắc là do sự cố gì đấy

mk mới đc nhận thưởng 2 tháng vip mà mất lun rồi

giúp mình điiiiiiiiiiiiiiiii

 

Câu 1: Nước ta xuất khẩu và nhập khẩu những mặt hàng nào là chủ yếu Điền dấu x trước các loại hàng xuất khẩu chủ yếu? Điền chữ N vào vào trước các loại hàng nhập khẩu

a.Công nghiệp nhẹ X

b. Thủ công nghiệp   X                    

c. Nông sản - thủy sản X

d.Máy móc thiết bị N

f. khoáng sản X

g. nguyên liệu, vật liệu X

Câu 2: Đánh x vào tên những địa điểm ở nước ta được công nhận là di sản thế giới

a.Vịnh Hạ Long                                                b. Bãi biển Nha Trang

c. Vườn quốc gia Phong Nha – kẻ Bàng            d. Cố đô Huế

e. Văn Miếu – Quốc Tử Giám                           g. Phố cổ Hội An

Mình nhầm nguyên vật liệu là N.

Trong các câu sau câu nào đúng?

1) Loa là một thành phần cơ bản của máy tính.

2) Nhờ có màn hình ta nghe được nhạc phát ra từ máy tính.

3) Nhờ có bàn phím, ta có thể nhập các chữ, số và kí hiệu vào máy tính.

Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:

```python
n = int(input("Nhập số phần tử của dãy: "))
a = []

for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))

count = 0

for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0

if count != 0:
print()
```

Giải thích:

Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.

Ví dụ:

```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```

uses crt;

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

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int n=10,i,x,t;

int main()

{

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t+=x;

}

cout<<t;

}

program hoc24;

uses crt;

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

i,d,s: longint;

begin

clrscr;

for i:=1 to 6 do readln(a[i]);

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(d);

s:=s+a[i];

end;

writeln(d,s);

readln

end.

bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to 6 do 

if a[i]>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

readln;

end.