// PascalABC.Net 3.0, сборка 1076
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
ss:=Copy(s,p+1,n-p);
n:=Length(ss); p:=Pos(',',ss);
if p=0 then Writeln(ss)
else Writeln(Copy(ss,1,p-1))
end
else Writeln('*** Нечего выводить ***')
end.
<u><em>Тестовые решения:</em></u>
Введите строку: 01234,45679,1011213,14151617
45679
Введите строку: 01234,45679101121314151617
45679101121314151617
Введите строку: 01234,
*** Нечего выводить ***
Мощность алфавита это сколько символов в алфавите
для объёма надо знать вес одного символа и количество. но мы уже знаем количество так что нам надо только вес но мы можем узнать за счёт алфавита
19 не может быть возведён в двоичную степень так что делаем так
19=2^(4+1)
1 добавляем чтобы округлить
вес равен 5
теперь объем
5*60=300 бит
нам не говорили переводить в байт так что вот ответ
Нужно в начале нажать на первую кнопку потом на вторую потом опять на первую и опять на вторую
1. Программа умножает своё значение на десять и затем прибавляет индекс цикла. В итоге делает это 4 раза.
Это равносильно сложению строковых данных в виде чисел от одного до четырёх.
s = '1' + '2' + '3' + '4' = 1234
Ответ: 1234.
2. Программа прибавляет к значению y значение индекса x (от 6 до 2) и затем делит значение на 5. [5 раз]
y = (0 + 6) / 5 = 1.2
y = (1.2 + 5) / 5 = 1.24
y = (1.24 + 4) / 5 = 0.848
y = (0.848 + 3) / 5 = 0.7696
y = (0.7696 + 2) / 5 = 0.55392
Ответ: 0.55392.
3. Программа прибавляет к значению s один и затем умножает значение на 2. [4 раза]
s = (0 + 1) * 2 = 2
s = (2 + 1) * 2 = 6
s = (6 + 1) * 2 = 14
s = (14 + 1) * 2 = 30
Ответ: 30.