Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.
ЭВМ 1 поколения - Они были ламповыми машинами 50-х годов. Их элементной базой были электровакуумные лампы. Эти ЭВМ были весьма громоздкими сооружениями, содержавшими в себе тысячи ламп, занимавшими иногда сотни квадратных метров территории, потреблявшими электроэнергию в сотни киловатт.
ЭВМ 2 поколения - В 60-х годах транзисторы стали элементной базой для ЭВМ второго поколения. Машины стали компактнее, надежнее, менее энергоемкими. Возросло быстродействие и объем внутренней памяти. Большое развитие получили устройства внешней (магнитной) памяти: магнитные барабаны, накопители на магнитных лентах.
ЭВМ 3 поколения - ЭВМ третьего поколения начали производиться во второй половине 60-х годов, когда американская фирма IBM приступила к выпуску системы машин IBM-360. Немного позднее появились машины серии IBM-370.
В Советском Союзе в 70-х годах начался выпуск машин серии ЕС ЭВМ (Единая система ЭВМ) по образцу IBM 360/370. Скорость работы наиболее мощных моделей ЭВМ достигла уже нескольких миллионов операций в секунду. На машинах третьего поколения появился новый тип внешних запоминающих устройств – магнитные диски.
ЭВМ 4 поколения - Микро-ЭВМ относится к машинам четвертого поколения. Наибольшее распространение получили персональные компьютеры (ПК). Их появление связано с именами двух американских специалистов: Стива Джобса и Стива Возняка. В 1976 году на свет появился их первый серийный ПК Apple-1, а в 1977 году – Apple-2.
Однако с 1980 года «законодателем мод» на рынке ПК становится американская фирма IBM. Ее архитектура стала фактически международным стандартом на профессиональные ПК. Машины этой серии получили название IBM PC (Personal Computer). Появление и распространение ПК по своему значению для общественного развития сопоставимо с появлением книгопечатания.
С развитием этого типа машин появилось понятие «информационные технологии», без которых невозможно обойтись в большинстве областей деятельности человека. Появилась новая дисциплина – информатика.
<span>все очень легко;)
внутри проверка (i mod 3 =0) and (i mod 10 = 2) и суммируй</span>
3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ
var a:array[1..10] of integer;
i,temp,j:integer;
begin
for i:=1 to 10 do begin
a[i]:=random (26);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do
if a[i]<a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;
for i:=1 to 10 do
write(a[i]:3);
end.
