1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
Ответ:
Получилось 3, только не понятно или 3, или 3 положительных результатов * 5 кодов программ = 25.
Объяснение:
Вводим S если S больше или равно 2*K то выводиться да.
Вот и смотри где мы вводим S>=2*K
Для начала подсчитаем количество символов, а их 54
Дано:
x=54
b=1Байт
Vi=?
Решение:
Vi=x*b=54*1=54Байт
Если нужен ответ в битах, то просто умножим 54 на 8 и получим 432бит
Ответ:
не до конца понял ответы, думаю из объяснения поймете
Объяснение:
Кликаем по кнопке Пуск.
Откроется меню кнопки Пуск, в котором щелкаем по опции «Все программы»
Среди перечня программ находим «Стандартные».
Среди «Стандартных» находим «Служебные».
Кликаем по опции «Служебные»
Далее кликом по опции «Таблица символов» запускаем ее.
Выделяем нужный символ и нажимаем ctrl-C (Copy) двигаемся куда надо вставить и жмем ctrl-V (Paste)
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9