На дед мороза надейся ,а сам не плашай
Var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
<span>end.</span>
Задание лишено смысла, т. к. символ никогда не кодируется частью байта. Но допустим, что под байтом тут просто понимается массив из 8 битов. Тогда 2^(30 * 8 / 40) = 64.
CLS
n = 0
FOR i = 1 TO 9
FOR j = 0 TO 9
FOR k = 0 TO 9
c1 = i <> j AND i <> k AND j <> k
IF c1 THEN c1 = (i + j + k) MOD 7 = 0
IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0
IF c1 THEN
PRINT i; j; k
n = n + 1
END IF
NEXT k
NEXT j
NEXT i
IF n = 0 THEN PRINT "Нет решения"
<em><u>Тестовое решение:</u></em>
3 2 9
3 9 2
5 1 8
5 8 1
Я так понимаю это паскаль?
это инициализация случайных чисел, пишется в начале программы
чтобы создать случайное число нужно написать random(10) это от 0 до 10 числа можно менять, например a:=random(5..15); а- это переменная