Program n_10; var a,b,c,x: integer; R:Boolean; begin WriteLn('Введите трехзначное число>>'); ReadLn(x); a:=x div 1000; b:= (x mod 1000) div 100; c:=x mod 10; R:= (a*b*c) mod 2 = 0; WriteLn('Произведение цифр четно?',R) end.
45_10=101101_2(для перевода нужно делить 45 на 2 до тех пор, пока остаток не станет равным 1) 82_10=1010010_2(для перевода нужно делить 82 на 2 до тех пор, пока остаток не станет равным 1) 101011_2=43_10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^0+2^1+2^3+2^5=1+2+8+32=43) 1110_2=14-10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^1+2^2+2^3=2+4+8=14)
Если много,прости.. 1. Сидите глубоко на полужестком кресле со спинкой, имеющей изгиб для поясницы, – это выровняет спину, и даст поддержку шее.
2. Делайте перерыв в сидячей работе, вставайте и ходите. При работе с компьютером в течение 6–8 часов необходимо каждые 2–3 часа давать себе отдых не менее 15 минут, во время которой проводить гимнастику.
3. Избегайте опущенного положения головы, это предупредит напряжение мышц спины и шеи.
4. Затемните экран, создав вокруг него колпак, например, положив наверх терминала лист черного картона и отогнув с обеих сторон вниз. Теперь можно поставить яркость на очень низкий уровень. Это уменьшит утомление глаз.
5. Через каждые 45 минут необходимо выполнять гимнастику для глаз.
6. Не рекомендуется работать на компьютере:
* во время беременности; * в корректирующих зрение очках; * во время болезни; * в синтетической или шерстяной одежде; * более 45 минут без перерыва.
7. Моргайте чаще во время работы за компьютером, потому что каждое такое движение очищает глаза и производит своеобразный массаж.
8. Во время работы, для уменьшения напряжения, перемещайте взгляд по всей площади экрана, старайтесь не смотреть напряженно в одну точку. Такой прием позволяет задействовать большинство глазных мышц, а не отдельные их группы, что снижает риск развития миопии (нарушения остроты зрения).
var a,b,c,x: integer; R:Boolean;
begin
WriteLn('Введите трехзначное число>>');
ReadLn(x);
a:=x div 1000;
b:= (x mod 1000) div 100;
c:=x mod 10;
R:= (a*b*c) mod 2 = 0;
WriteLn('Произведение цифр четно?',R)
end.