NC
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
24 tháng 10 2016
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
NT
Nguyễn Thị Thương Hoài
Giáo viên
VIP
21 tháng 8
Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!
7 tháng 1 2020
1C
2: ((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))
12 tháng 2 2020
1C
2: ((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))*((sqr(a)+b)*(1+c))
BK
18 tháng 10 2016
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
30 tháng 3 2019
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
ML
11 tháng 4 2019
Lời giải:
Bài 1 :
a) var A : array[1..100] of real ;
b) var B : array[1..20] of integer ;
c) A[7] := 8 ;
Bài 2 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 3 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('Co tat ca so ban hoc sinh la'); readln(n);
write('Nhap diem mon tin cua cac ban');
for i:= 1 to n do
begin
write('Ban thu ',i,':'); readln(a[i]);
end;
readln
end.
Bài 4 : a,b giống bài 3
c)
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n,tong : integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then tong:=tong+1;
write('Ket qua la',tong);
readln
end.
Bài 5: a và b tương tự bài 3
c+d )
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);
d) if i mod 2= 1 then write('Cac so le cua mang la:',i);
readln
end.
DH
Đỗ Hoàn
CTVHS
VIP
12 giờ trước (8:22)
2em đồng tình với quan điểm này, vì sự phát triển của máy tính đã giúp con người làm việc nhanh hơn, chính xác hơn, dễ dàng lưu trữ và xử lí thông tin, đồng thời còn mở rộng khả năng giao tiếp, học tập và giải trí nên máy tính đã trở thành công cụ không thể thiếu trong học tập, nghiên cứu, sản xuất và đời sống hằng ngày
DH
Đỗ Hoàn
CTVHS
VIP
12 giờ trước (8:24)
3
-1940 – 1956: máy tính dùng đèn điện tử, kích thước rất lớn, con người chủ yếu nhập dữ liệu bằng thẻ đục lỗ
- 1956 – 1963: máy tính dùng transistor, nhỏ hơn, nhanh hơn, giao tiếp bằng ngôn ngữ lập trình bậc thấp
- 1964 – 1971: dùng mạch tích hợp (IC), giao tiếp bằng ngôn ngữ lập trình cấp cao hơn
- 1971 – nay: dùng vi xử lí (microprocessor), máy tính nhỏ gọn, dễ dùng, giao tiếp bằng giao diện đồ họa (chuột, bàn phím, màn hình)
- hiện đại, đang phát triển: trí tuệ nhân tạo (AI), máy tính có khả năng học hỏi, giao tiếp gần gũi với con người qua giọng nói, hình ảnh, trợ lý ảo
9 tháng 11 2021
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
9 tháng 11 2021
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
Phần mềm GeoGebra là phần mềm giúp vẽ hình chính xác và có khả năng vẽ hình học động, hình không gian.
Đáp án: D