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.

-Thế hệ thứ nhất: máy tính sử dụng ống chân không hoặc van nhiệt điện.
-Thế hệ thứ hai: máy tính sử dụng công nghệ bóng bán dẫn và lõi từ.
-Thế hệ thứ ba: máy tính sử dụng công nghệ mạch tích hợp (IC).
-Thế hệ thứ tư: máy tính sử dụng công nghệ tích hợp quy rất lớn, gồm hàng trăm nghìn thành phần trên một chip silicon duy nhất.
-Thế hệ thứ năm: máy tính được chế tạo dựa trên công nghệ tích hợp vượt trội hơn hẳn thế hệ trước, các chip vi xử lí có nhiều triệu linh kiện điện tử.

Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.

Bạn thử xem cách mình làm đc ko?
___________
uses crt;
var A:array[1..1000] of integer;
n,i,tc,tl,z,j,e,tic,til,dem,d,dc,dl:integer;
begin
clrscr;
Write('Nhap n: '); readln(n);
for i:=1 to n do
begin
Write('Nhap phan tu thu ',i,' :'); readln(A[i]);
end;
i:=1;
tc:=0;
tl:=0;
for d:=1 to n do if (A[d] mod 2=0) then dc:=dc+1 else dl:=dl+1;
if (dc<>0) then tic:=1 else tic:=0;
if (dl<>0) then til:=1 else til:=0;
for i:=1 to n do if (A[i] mod 2=0) then
begin
tc:=tc+A[i];
tic:=tic*A[i];
end
else
begin
tl:=tl+A[i];
til:=til*A[i];
end;
Writeln('Tong cac phan tu chan la: ' ,tc);
Writeln('Tich cac phan tu chan la: ' ,tic);
Writeln('Tong cac phan tu le la: ' ,tl);
Writeln('Tich cac phan tu le la: ' ,til);
for e:=1 to (n-1) do
for j:=e+1 to n do
if A[e]>A[j] Then
begin
z:=A[e]; A[e]:=A[j]; A[j]:=z;
end;
Writeln('Day sau khi duoc sap xep tang dan la: ');
for dem:=1 to n do Write(A[dem],' '); writeln;
writeln('Day sau khi duoc sap xep giam dan la: ');
for dem:=n downto 1 do write(A[dem],' ');
readln;
end.
Tham khảo!
Thế hệ thứ nhất: d) ENIAC. Đèn điện tử chân không
Thế hệ thứ hai: b) IBM. Bóng bán dẫn
Thế hệ thứ ba: c) IBM 370. Mạch tích hợp
Thế hệ thứ tư: a) Altair 8800. Vi xử lí
Thế hệ thứ năm: e) Điện thoại thông minh
Các thiết bị theo trình tự của quá trình phát triển các thế hệ máy tính điện tử là: d) – b) – c) – a) – e).