em hay nhap mot day so nguyen gom 10 phan tu tinh tong cac so trong day do (su dung mang 1 chieu de giai)
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.
Những câu hỏi liên quan
9 tháng 5 2021
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
9 tháng 5 2021
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
BT
4 tháng 3 2017
Ta có: đáy lớn+đáy nhỏ=140 (m)
Chiều cao là: 140.4/7=8 (m)
a) Diện tích mảnh vườn là: \(\frac{140.8}{2}\)=560 (m2)
b) 30,5 diện tích mảnh vườn là: 560.30,5/100=170,8 (m2)
Phần diện tích còn lại là: 560-170,8=389,2 (m2)
19 tháng 3 2017
a)Chiều cao của mảnh vườn là:
140 x \(\frac{4}{7}\)= 80 (m)
Diện tích mảnh vườn là:
140 x 80 : 2 = 5600 (m2)
b)Ta coi diện tích mảnh vườn là 100%,diện tích trồng xoài là 30,5 %.Vậy diện tích còn lại chiếm:
100% - 30,5% = 69,5%
Diệ tích phần còn lại là:
5600 x 69,5% = 3892 (m2)
Đáp số:a)5600m2
b)3892 m2
19 tháng 3 2017
Đáp số: a) 5600 m2; b) 3892 m2.
Đúng 100% luôn!
Chúc các bạn học giỏi.
Bấm đúng cho mình nha.
29 tháng 4 2016
a)
.gọi biểu thức là A. ta c
số số hạng là (1995-1):1+1=1995(số hạng)
vì là lẽ nên ta có chỉ lấy từ số 1 đến 1994 để thành 1994 số hạng
ta có số cặp là (1994:2)=997. giá trị mỗi cặp là:(1+1994)=1995
Vậy giá trị của A là: (1995*997)+1995=1991010
b) từ 1->9 có 9 chữ số
từ 10->99 có 180 chữ số.
từ 100-999 có 2700 chữ số
từ 1000->1995 có 3984 chữ số.
=> từ 1->1995 có tất cả 6873 chữ số
ML
4 tháng 6 2020
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
ML
4 tháng 6 2020
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i]);
t:=0;
for i:=1 to 10 do t:=t+a[i];
writeln(t);
readln;
end.
var i,s,n: integer;
a: array[1..100] of integer;
begin
readln(n);
for i:=1 to n do begin readln(a[i]); s:=s+a[i]; end;
write(s);
readln
end.