ЭВМ 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). Появление и распространение ПК по своему значению для общественного развития сопоставимо с появлением книгопечатания.
С развитием этого типа машин появилось понятие «информационные технологии», без которых невозможно обойтись в большинстве областей деятельности человека. Появилась новая дисциплина – информатика.
Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
Первое число 455
второе число 85
, где i - размер единицы (ну там символа или... цвета, не знаю) в битах, а n - количество сочетаний (палитра, например)
Насколько я понимаю, так:)
