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>
2.
4000/10*8/400=8
Ответ: о)
3.
1)0,5*1024*8=4096кбит
2)4096/128=32 сек
Ответ Н)
4.
10800/(28800/8)=3
Ответ T)
1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)
2} 712 - может получиться (например для числа 257)
3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)
4} 10 - не может получиться (первая сумма больше второй)
5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)
6} 619 - не может получиться (19 нельзя получить как сумму 2-х цифр)
Ответ: 1
Для того, чтобы определить размер данного предложения нужно подсчитать количество символов в предложении. Оно состоит из 38 символов. Каждый символ кодируется 16 битами или 2 байтами. Исходя из этого:
1. 38 * 2 = 76 байт;
2. 76 * 8 = 608 бит.
Размер данного предложения 76 байт или 608 бит.