<span><span>program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
</span>s := s + i*cos(i*x); <span>
i := i + 1;
end;
writeln('S= ', s:0:2);
end.</span><span>а вот с repeat until
program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
</span>s := s + i*cos(i*x); <span>
i := i + 1;
until i>15;
writeln('S= ', s:0:2);</span></span>
Решение:
1. Определим вес одного символа: 500 / 50 = 10 бита.
2. Мощность алфавита определяем по формуле: N=2^10 = 22
Ответ: мощность алфавита N = 22.
выразим размер файла в Мб: 1562/1024=1,525Мб
теперь узнаем сколько таких файлов поместится на компакт-диск
650/1,525=426 файлов это и есть ответ
А) Информация для человека - это знание, которое он получает из различных источников
б) Информация понятна, если она выражается на языке, доступном для получателя
в) Сообщение может пополнить знания человека, если содержащиеся в нем сведения являются понятным и новы