begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
2,5 Мбайта = 2,5*1024 Кбайт = 2,5*1024*1024 байт
16 бит = 16/8 байт = 2 байта
Количество страниц = 2,5*1024*1024 / (640*480*2) ≈ 4,3 ≈ 4
Ответ: 4
Письмо Пете
Грамота
12 меньше 13
Письмо_Пете
Что?
Ура!
Ку-Ку