Таблица истинности во вложении.
Потому, что архитектура современных компьютеров предусматривает обработку данных, содержащих целое число байт и один байт является минимальным размером таких данных.
Var
a,p,s:real;
begin
Write('Введите площадь квадрата: ');
Readln(s);
a:=sqrt(s);
p:=4*a;
Writeln('Периметр квадрата равен ',p)
end.
Тестовое решение:
Введите площадь квадрата: 13.7
Периметр квадрата равен 14.8054044186574
Первый компьютер и был, и не был. Не был потому, что его автор Чарльз Бэббидж<span>не смог его построить: в то время (он начал свою работу в 1834 году) подобная машина могла быть только механической. Но точность изготовлении деталей была слишком высока по их меркам. Поэтому финансирование проекта прекратилась. Но все же первый компьютер был - не осуществленный, но продуманный до мелочей и тщательно вычерченный. Кроме чертежей, осталась еще и подробное словесное описание, составленной сотрудницей </span>Бэббиджа Августой Адой Лавлейс, разработанная ею язык программирования и несколько первых в истории программ (перфокарты, машина Бэббиджа была способна выполнять программы). Его основные части были теми же, что и в каждом современном компьютере: устройства ввода данных (клавиатура); запоминающее устройство, способное хранить исходные данные; арифметическое устройство (-,+,·,:<span>); устройство для вывода результата.</span>
<u>4 строчка:</u> отсутствует ";"
<u>4 строчка:</u> write вместо writeln, чтобы не было переноса строки (так как считывание данных должно быть в виде:
<em>write();</em>
<em>readln(a);</em>
<u>10 строчка:</u> отсутствует ";"