Если симов занимает 1 байт, то получается 6 файлов
Program n1;
var a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
end.
Решение №1
Складываем степени двойки там где 1, где 0 будет 0:
2⁴+2²+2¹+2⁰ = 16+4+2+1 = 23
Решение № 2
10111₂ = 2⁵-1 - 2³ = 32 -1 -8 =23
1. Представление информации в компьютере, единицы измерения информации В ЭВМ применяется двоичная система счисления, т.е. все числа в компьютере представляются с помощью нулей и единиц, поэтому компьютер может обрабатывать только информацию, представленную в цифровой форме.
2. Принято называть системой счисления
3.• устройства ввода информации
• устройства обработки информации
• устройства хранения
• устройства вывода информации.
По другому: системный блок, монитор, клавиатура и мышь
4.частота. В герцах (Гц)
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.