Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
SCREEN 12
RANDOMIZE TIMER
FOR I = 1 TO 500
x = INT(RND * 639) + 1
y = INT(RND * 479) + 1
c = INT(RND * 15) + 1
PSET (x, y), c
NEXT I
END
Закодируем буквы на цифры таким образом.
А - 0
П - 1
Р - 2
С - 3
У - 4
Если возникает вопрос почему именно так кодируем, то смотрим на начало списка, и первая буква а, потом п и т.д, поэтому именно так кодируем.
Преобразуем начало списка:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0010
Первое слово, в котором нет буквы А - это слово ПППП
Т.к у нас от 0 до 4, то это пятиричная система счисления.
ПППП - 1111 по основанию 5. Переводим в десятичную 156. Но номер этой ячейки больше самой ячейки на 1. Значит будет стоять под номером 157 - это и есть ответ
Q= 100 Мбит/с = 4*25*2^(23) бит/с = 25*2^(25) бит/с
F= 6400 Кбайт =2^6*2² *25 * 2^(13) бит = 25*2^(21) бит
Избыт. =20%; 100%+20%=120% или 1,2 части
Fi=1,2*25*2^(21) бит
Время t = Fi / q = 1,2*25*2^(21) / (25*2^(25)) = 1,2 / 2^4 = 1,2/8= 0,15 c