Определите значение целочисленных переменных a и b после выполнения фрагмента программы; a: =2468; b: =(a mod 1000)*10; a: =a div 1000+b

A: =2468; b: =(2468 mod 1000)=468*10=4680 a: =2468 div 1000=2+4680=4682

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.

Подробнее - на - ответ:

Объяснение:

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<center>

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

</center>