Question

1)визначити істиність виразу a>5 якщо a)a=8 b)a=5 c)a=2
2)обчислити
a)7 mod 2
b)7 dir 2
c)123 mod 100
d)123 dir 10
e)(123 dir 10) mod 10​

Answer 1

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1. 

Var

 n:integer;

Begin

 Write('Введи число ');

 Readln(n);

 if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

 a,b:integer;

Begin

 Write('Введи числа ');

 Readln(a,b);

 if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

 n:integer;

Begin

 write('Введи двузначное число ');

 Readln(n);

 if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.

Подробнее - на Znanija.com - https://znanija.com/task/17270327#readmoreОтвет:

Объяснение: