var
H: Integer;
begin
Write ('Введите количество часов: ');
ReadLn (H);
WriteLn ('Полных дней = ', H div 24);
WriteLn ('Оставшиеся часы = ', H mod 24);
end.
3 так как каждая буква один байт
Кол-во символов на каждой странице представляет собой убывающую арифметическую прогрессию с разницей в -16.
Нам нужно найти сумму элементов, это можно сделать по формуле:
((2(a1) + d(n-1))/2)*n, где a1 = 2560, d=-16, n=128
((2*2560 - 16*127)/2)*128 = 197632 символов.
Каждый символ занимает 2 байта, нам нужен объем в килобайтах, то есть умножим кол-во символов на 2 и разделим на 1024
(197632*2) / 1024 = 386 Кбайт.
Var z,x:real;
begin
readln(x);
z:=cos(1/sqrt(2*x));
writeln(z:0:3);
<span>end.</span>
