// PascalABC.NET 3.0, сборка 1073
const
s='QWERTYUIOPASDFGHJKLZXCVBNMQqwertyuiopasdfghjklzxcvbnmq';
var
c:char;
p:integer;
begin
repeat
Write('Введите латинскую букву, иной символ завершит работу: ');
Readln(c);
p:=Pos(c,s);
if p>0 then Writeln('Рядом буква "',s[p+1],'"')
until p=0
end.
<u><em>Тестовое решение:</em></u>
Введите латинскую букву, иной символ завершит работу: y
Рядом буква "u"
Введите латинскую букву, иной символ завершит работу: H
Рядом буква "J"
Введите латинскую букву, иной символ завершит работу: m
Рядом буква "q"
Введите латинскую букву, иной символ завершит работу: P
Рядом буква "A"
Введите латинскую букву, иной символ завершит работу: 5
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var s:=ReadlnString('n=');
s:=('0'*(4-s.Length)+s);
Writeln(Ord(s[:3].ToInteger=s[3:].Inverse.ToInteger));
end.
Если в алфавите 256 символов, значит каждый символ весит:
2^ i = 256
i = 8 бит (1 байт)
Всего в тексте 29 символов, считая пробелы и точку в конце.
Вес всего текста в байтах: 29 * 1 = 29 байт.
Ответ: 29 байт.
<span>При имитационном моделировании структура системы отображается в модели, а процессы ее функционирования проигрываются (имитируются) на построенной модели. Выделяют статическое описание структуры системы, для чего нужно выполнять структурный анализ процессов, и описание динамики взаимодействий элементов системы, для чего нужно построить функциональную модель динамических процессов.</span>
#include <iostream>
<span>using namespace std;
</span>int main() {
<span>int N,K,L;
</span><span>int</span><span /><span>gt=0,eg=0,lt=0;
</span><span> cout<<"N = "; cin>>N;
</span><span> cout<<"K = "; cin>>K;
</span><span> cout<<"элементы последовательности через пробел: ";
</span><span> for (int i=0; i<N;i++)
</span><span>{ cin>>L;
</span><span> if (L>K) gt++;
</span><span> if (L==K) eg++;
</span><span> if (L<K) lt++;
</span><span>}</span><span>
cout<<"меньше К: "<<lt<<endl;
</span><span> cout<<"равных К: "<<eg<<endl;
</span><span> cout<<"больших К: "<<gt<<endl;
</span><span> </span><span>
</span> system("pause");
<span> return(0);
</span><span>}
</span><span>
</span>