#include <iostream>
using namespace std;
int main() {
srand(time(NULL));
cout << rand() % 10+1;
return 0;
}
Пример:
7
// 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
1) 80*1024*8=655360 бит
<span>2)655360\1536=427 сек.</span>
<span>3)427*768=327680 бит=40960байт=40Кбайт</span>
<span>Ответ: 40 Кбайт
</span>
Стандартная дискета имеет объем 1,44 Мбайт.
Длина сообщения - 1160 бит. Пусть количество сообщений, которое может уместится на дискете будет равно X. Следовательно, имеем урованение:
1160 бит * X = 1,44Мбайт
1160 бит * X = 1,44 * 1024 * 1024 * 8 бит
1160 бит * X = 12079595,5 бит
X = 12079595,5 / 1160 = 10413,4444
Ответ: 10413 сообщений