100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб
<span>1)"_Зайку_ бросила хозяйка"
</span><span>2)" бросила хозяйка"
</span><span>3)" _бросила_ хозяйка"
</span><span>4)" хозяйка"
</span><span>5)" _хозяйка_"
</span>6)" "
<span>7)" хозяйка"
</span>8)" хозяйка <span><span>хозяйка</span>"
насчет кол-ва пробелов не уверенна
</span>
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
Перш за все, потрібно сформувати в собі мислення людини успішного, бійця. Бійця з життєвими труднощами, перешкодами, з самим собою, перш за все. З пораженськими думками, з песимізмом нічого в цьому житті не добитися, не досягти. Потрібно поставити собі цілі. Подумати і зрозуміти, чого ж насправді я хочу. Що потрібно для цього зробити, в який термін, чим доведеться пожертвувати і який буде результат - постаратися ясно уявити собі всю картину досягнення мети від А до Я. І йти вперед до цієї мети, незважаючи ні на що.
Звичайно ж, потрібно постаратися знайти своє місце в житті, роботу, діяльність, яка приносила б не тільки користь людям, а й самому собі.
Величезну роль у вдосконаленні себе грає як фізичне, так і духовний розвиток.
Ще древні говорили - * У здоровому тілі - здоровий дух *. Щоденні фізичні вправи не тільки зміцнюють весь організм в цілому, але і надають впевненості в собі і своїх силах. На сьогоднішній день вибір видів спорту для хлопців величезний - від легкої атлетики до пауерліфтингу, від безконтактного карате до кривавого муай тай. Дівчатам же буде цікаво і корисно зайнятися фітнесом, стрип-пластикою, йогою. Наявність величезного вибору спортивного інвентарю, високопрофесійних тренерів і спортзалів, обладнаних за останнім словом техніки, дозволяють практично кожному охочому в досить короткі терміни привести своє тіло в порядок.
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.