Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.
3. 5
4. первой двери без ключа
5. ключ не подойдет к замку
6. замок
8. ключ подошел
9. оставь в замке
10. следующий ключ
11. связку ключей к началу (?)
1 Мбит = 131072 байт.
Имеем формулы:
1 байт = 8 бит
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
Как считать:
учимся пользоваться этими величинами, как любыми другими.
Т. е. если надо перевести 8 мегабайт в байты, то берем и смотрим порядок действий, сначала умножаем на 1024(получаем килобайты), потом еще на 1024 и получаем байты, т. е. вот так:
8 МБ= 8*1024*1024=8388608 байт.
Соответсвенно, если надо перевести из меньших величин в большие, мы просто делим.