Написать программу вычисления объема параллелепипеда.
Вычисление объема
параллелепипеда
Введите исходные данные:
Длина (см): 9
Ширина (см): 7.5
Высота (см): 5
Объем: 337.5 кубических единиц
print(Вычисление :)
**)
print(данные)
a=float(input(Длина (см): ))
b= ..
c=..
print(a*b*с, куб.ед.)​

Слово «компьютер» означает «вычислитель», т.е. устройство для вычислений. В наше время трудно представить себе, что без компьютеров можно обойтись. А ведь не так давно, до начала 70-х годов вычислительные машины были доступны весьма ограниченному кругу специалистов, а их применение, как правило, оставалось окутанным завесой секретности и мало известным широкой публике. Однако в 1971 году произошло событие, которое в корне изменило ситуацию и с фантастической скоростью превратило компьютер в повседневный рабочий инструмент десятков миллионов людей. В том, вне всякого сомнения знаменательном году еще почти никому не известная фирма Intel из небольшого американского городка с красивым названием Санта-Клара (шт. Калифорния), выпустила первый микропроцессор. Именно ему мы обязаны появлением нового класса вычислительных систем – персональных компьютеров, которыми теперь пользуются, по существу, все, от учащихся начальных классов и бухгалтеров до ученых и инженеров.

В данном реферате мы рассмотрим историю развития вычислительной техники от древности до наших дней, а также краткий обзор о возможностях применения современных вычислительных систем и дальнейшие тенденции развития персональных компьютеров.

Знание истории развития вычислительной техники как основы компьютерной информатики – необходимый составной элемент компьютерной культуры
РУЧНОЙ ПЕРИОД КОМПЬЮТЕРНОЙ ЭПОХИ

Ручной период начался на заре человеческой цивилизации. Фиксация результатов счета у разных народов на разных континентах производилась разными пальцевый счет, нанесение засечек, счетные палочки, узелки и т.д. Наконец, появление приборов, использующих вычисление по разрядам, как бы предполагали наличие некоторой позиционной системы счисления, десятичной, пятеричной, троичной и т.д. К таким приборам относятся абак, русские, японские, китайские счеты. 
Историю цифровых устройств начать следует со счетов. Подобный инструмент был известен у всех народов. Древнегреческий абак(доска или «саламинская доска» по имени острова Саламин в Эгейском море) представлял собой посыпанную морским песком дощечку. На песке проходили бороздки, на которых камешками обозначались числа. Одна бороздка соответствовала единицам, другая - десяткам и т.д. Если в какой-то бороздке при счете набиралось более 10 камешков, их снимали и добавляли один камушек в следующем разряде. Римляне усовершенствовали абак, перейдя от деревянных досок, пеcка и камешков к мраморным доскам с выточенными желобками и мраморными шариками. Китайские счеты суан – пан состояли из деревянной рамки, разделенной на верхние и нижние секции. Палочки соотносятся с колонками, а бусинки – с числами. У китайцев в основе счета лежала не десятка, а пятерка.

Суан - пан разделены на две части: в нижней части на каждом ряду располагаются по 5 косточек, в верхней части – по 2. Таким образом, для того, чтобы выставить на этих счетах число 6, ставили сначала косточку, соответствующую пятерке, а затем добавляли одну косточку в разряд единиц. 

У японцев это же устройство для счета носило название серобян. 

На Руси долгое время считали по косточкам, раскладываемым в кучки. Примерно с 15 века получил распространение «дощатый счет», завезенный, видимо, западными купцами с ворванью и текстилем. «Дощатый счет» почти не отличался от обычных счетов и представлял собой рамку с укрепленными горизонтальными веревочками, на которые были нанизаны просверленные сливовые или вишневые косточки. 

Program primer;
Var f,g:text;
    I,n,k: integer;        S,a,data: string;    Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s);  // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin  //ищем автора
data:=''; 
for k:=length(s) downto 1 do begin 
          if (s[k]=' ') then begin 
                   data:=data+copy(s,k+1,length(s));        //смотрим дату
                   break;         
         end;             
         end;        
         end;
if (strtoint(data) >= 1980) then writeln(g,s);  //сравниваем дату 
end;
close(f);
close(g);
end.
ABC Pascal