Первые компьютеры для повседневной жизни были достаточно малой мощности, так как были весьма компактны, по сравнению с топовым разработками для вычислений, поэтому было разумней использовать расчеты вручную, причем нужно было обучать персонал пользоваться операционной системой и самим компьютером, так же тогда был дефицит программного обеспечения, а ведь областей применения компьютера великое множество, поэтому не для каждой организации вообще существовали нужные программы
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
1 ТБайт=2^43 бит
1 фото = 2^25 бит
1 фильм = 2^32 бит
1 книга = 75*2^16 бит
значит поместится
2^18 Фото
2^11 Фильмов
примерно 1800000 книг
begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
