<em>Решение.</em>
Мощность компьютерного алфавита равна 256. Один символ несет 1 байт информации.
Значит, страница содержит 40*60=2400 байт информации. Объем всей информации в книге: 2400*150 = 360 000 байт.
<em>Ответ:</em>360 000 байт
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr(max)=sqr(min1)+sqr(min2)) then Writeln('Треугольник прямоугольный') else if (sqr(max)<sqr(min1)+sqr(min2)) then Writeln('Треугольник остроугольный') else Writeln('Треугольник тупоугольный'); end else Writeln('Треугольник не существует'); Readln(); END.
При форматировании текстового документа происходит - А
<span>При разработке плана действий происходит </span>- Б
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>