Вариантов кодировок UNICODE достаточно много и один из самых популярных - в котором каждый символ всегда кодируется двумя байтами. Поэтому кириллица, цифры, латиница, спецзнаки - все кодируется одинаковым числом байт.
Один символ кириллицы кодируется 2 байтами = 2х8 = 16 битами.
Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
Количество символов = 150*40*60 = 360000
Если для кодирования одного символа используется 8 бит (1 байт), то объем книги = 360000*8 = 2 880 000 бит = 360 000 байт
Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно