Все буквы меняем на предыдущие в алфавите ФОТОАЛЬБОМ
Если мы кодировали в одну сторону, следовательно декодируем также, но только в обратную сторону.
а)друга ищи, а найдёшь - береги;
б)старый друг лучше новых двух.
А) if (x >= m) and (x <= n) then written('True') else Writeln('False');
b) if (c*c = a*a + b*b) then written('True') else writeln('False');
в)if (x > 0) and (y > 0) then written('True') else writeln('False');
––––––––––––––––––––––––––––––––––––––
Кнопка 'спасибо' чуть ниже
Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn('Введите слово:');
ReadLn(s);
WriteLn('Введите символ:');
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn('Позиция символа в строке: ', pos);
WriteLn('Количество вхождений символа в строку: ', count);
ReadLn;
<span>End.</span>
Ответ:
Машинный двоичный язык – логическая последовательность “0” и “1”.
Каждая цифра двоичного кода несет количество информации, равное 1 бит.