Var i:integer; begin write('|МЕТРЫ|'); for i:=1 to 20 do write(i:6,'|'); writeln; write('|ЯРДЫ |'); for i:=1 to 20 do write(i*0.91:6,'|'); writeln; end.
Первый компьютер и был, и не был. Не был потому, что его автор Чарльз Бэббиджне смог его построить: в то время (он начал свою работу в 1834 году) подобная машина могла быть только механической. Но точность изготовлении деталей была слишком высока по их меркам. Поэтому финансирование проекта прекратилась. Но все же первый компьютер был - не осуществленный, но продуманный до мелочей и тщательно вычерченный. Кроме чертежей, осталась еще и подробное словесное описание, составленной сотрудницей Бэббиджа Августой Адой Лавлейс, разработанная ею язык программирования и несколько первых в истории программ (перфокарты, машина Бэббиджа была выполнять программы). Его основные части были теми же, что и в каждом современном компьютере: устройства ввода данных (клавиатура); запоминающее устройство хранить исходные данные; арифметическое устройство (-,+,·,:); устройство для вывода результата.
begin
write('|МЕТРЫ|');
for i:=1 to 20 do
write(i:6,'|');
writeln;
write('|ЯРДЫ |');
for i:=1 to 20 do
write(i*0.91:6,'|');
writeln;
end.