1.дано двузначное число.определить: a.какая из его цифр больше, первая или вторая; b. одинаковы ли его цифры. 2. дано двухзначное число. определить, равен ли квадрат этого числа учетверённой сумме кубов его цифр. например, длячисла 48 ответ положительный, для числа 52-отрицательный. 3. дано двузначное число. определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. дано трёхзначное число определить, равен ли квадрат этого числасумме кубов его цифр. 5. дано двузначное число, определить: входит ли в него цифра 3: входит ли в него цифра a.

1.

var a: longint;

begin

  read(a);

  if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

  if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

  if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

 

2.

var a,b,c: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  b: =b*b*b;

  c: =c*c*c;

  d: =4*(b+c);

  if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln('  квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

3.

var a,b,c,d: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  d: =c+b;

  if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

  if  d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

4.

var a,b,c,d,e: longint;

begin

  read(a);

  b: =a mod 10;

  c: =(a mod 100)   div 10;

  d: =a div 100;

  b: =b*b*b;

  c: =c*c*c;

  d: =d*d*d;

  e: =b+c+d;

  if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else  writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

5.

var a,b,c,d: longint;

begin

  read(b,a);

  c: =b mod 10;

  d: =b div 10;

  if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else  writeln('в запись этого числа не входит цифра 3');

  if (c=a)or(d=a) then  writeln('в запись этого числа входит цифра ',a') else  writeln('в запись этого числа не входит цифра ',a);

end.

Сложение одноразрядных двоичных чисел выполняется по следующим правилам:

0 + 0 = 0

1 + 0 = 1

0 + 1 = 1

1 + 1 = 10

В последнем случае, при сложении двух единиц, происходит переполнение младшего разряда, и единица переносится в старший разряд. Переполнение возникает в случае, если сумма равна основанию системы счисления (в данном случае это число 2) или больше его (для двоичной системы счисления это не актуально).

Сложим для примера два любых двоичных числа:

1101

+ 101

10010

Вычитание

Вычитание одноразрядных двоичных чисел выполняется по следующим правилам:

0 - 0 = 0

1 - 0 = 1

0 - 1 = (заем из старшего разряда) 1

1 - 1 = 0

Пример:

1110

- 101

1001

Умножение

Умножение одноразрядных двоичных чисел выполняется по следующим правилам:

0 * 0 = 0

1 * 0 = 0

0 * 1 = 0

1 * 1 = 1

Пример:

1110

* 10

+ 0000

1110

11100

Деление

Деление выполняется так же как в десятичной системе счисления:

1110 | 10

|

10 | 111

11

10

10

10

0

"Реклама "

Некоторые компании, занимающиеся легальным бизнесом, рекламируют свои товары или услуги с спама. Привлекательность такой рекламы — низкая стоимость и (предположительно) большой охват потенциальных клиентов.

"Реклама незаконной продукции"

С спама рекламируют продукцию, о которой нельзя сообщить другими например, контрафактные товары (подделки, конфискат), лекарственные средства с ограничениями по обороту,

"Фишинг"

«Фишинг»  — ещё один мошенничества. Он представляет собой попытку спамеров выманить у получателя письма номера его кредитных карточек или пароли доступа к системам онлайновых платежей. Такое письмо обычно маскируется под официальное сообщение от администрации банка. В нём говорится, что получатель должен подтвердить сведения о себе, иначе его счёт будет заблокирован, и приводится адрес сайта (принадлежащего спамерам) с формой, которую надо заполнить. Среди данных, которые требуется сообщить, присутствуют и те, которые нужны мошенникам. Для того, чтобы жертва не догадалась об обмане, оформление этого сайта также имитирует оформление официального сайта банка.