Var n, f, o: string; a, i: integer;
begin
write('Введите фамилию ');
Readln(f);
write('Введите имя ');
Readln(n);
write('Введите отчество ');
Readln(o);
a := length(n) + length(f) + length(o);
Writeln('Длина имени, фамилии и отчества равна ', a);
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');
a := 0;
for i := 1 to length(f) do
if f[i] = 'и' then a := a + 1;
Writeln('Количество букв и в фамилии ', a);
<span>end.</span>
3*log(pow(pow(sin(x),2)+2),1/5)
I изменяется от 23 до 4 с шагом -1.
20 лет. определяем методом подбора.. 14-14,15-5,16-,17-7,18-8,19-9,20-10
Дано:
I = 16 бит = 2 байта
n = 25 кГц = 25 000 Гц
t = 2.5 мин = 150 с
Найти:
V - ?
Решение:
V = I*n*t
V = 2 байта * 25 000 Гц * 150 с = 7 500 000 байт / 1024 ≈ 7 324.2 Кбайта / 1024 ≈ 7.2 Кбайта
Ответ: 7.2 Кбайта