Два текста содержат одинаково количество символов первый текст составлен в алфавите мощностью 32 символа второй мощностью 64 символа во сколько раз отличаются информационный объем этих текстов
Var S, chislo: string; i,A,B,C,E: integer; Begin B := 0; WriteLn('Введите выражение: '); ReadLn(S); i := S.length; While (i > 0) do begin Case S[i] of '+': begin val(chislo,A,E); B := B + A; chislo := ''; end; '-': begin val(chislo,A,E); B := B - A; chislo := ''; end; else chislo := S[i] + chislo; End; i := i - 1; end; if (chislo <> '') then begin val(chislo,A,E); B := B + A; end; WriteLn(B); End.
1) создание, подготовка к работе, а так же определение параметров функции 2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"
K1=K2 = K
i1 = 5 (
i2 = 6 (
Найти:
Решение:
ответ: в