Уведіть ціле число з діапазону 6-9 введіть значення словом ​

12) ...кратно двум.

10) -20

9) 3.0

Объяснение:

12)

Строка "if a % 2 == 0" означает: Если остаток от деления переменной "а" на 2 равен 0, то ...

Если число делится на другое число без остатка, это значит, что первое число кратно второму.

10)

a = 100 # "а" равно 100

b = 30 # "b" равно 30

a = a - b*3 # "а" равно 100 - 30*3 (10)

if a%3 == 2: # Если остаток от деления переменной "а" на 3 равен 2, то... (10%3=1)

c = b//a # ...переменная "с" равна частному от "b" на "а" (30//10 = 3)

elif a%3 == 1: # иначе если остаток от деления переменной "а" на 3 равен 1, то...

c = a - b # ...переменная "с" равна разнице между "a" и "b" (10-30 = -20)

else: # иначе

c = b - a # ...переменная "с" равна разнице между "b" и "a" (30-10 = 20)

print(c) # Напечатать переменную "с" (-20)

9)

a = 30 # "а" равно 30

b = 6 # "b" равно 6

a = b + a/2 # "а" равно 6 + 30/2 (равно 21)

if a > b: # Если a > b, то... (21 > 6)

c = a - 3*b # переменная "с" равна 21 - 3 * 6 (3)

else: # иначе

c = a + 3*b # переменная "с" равна 21 + 3 * 6 (39)

print(c) # Напечатать переменную "c" (3)

 var a: array[1..5] of integer;

     s: char;

     min, i, j, k: integer;

begin

 writeln('Введите массив:');

 for i:=1 to 5 do

 begin

   write('a[',i,'] = ');

   readln(a[i]);

 end;

 for i:=1 to 5 do

   write(a[i], ' ');

 writeln;

 write('Введите символ (x, y, z): ');

 readln(s);

 if (s = 'x') or (s = 'X') then

 begin

   min := a[1];

   k := 1;

   for i:= 2 to 5 do

     if min > a[i] then  

     begin

       min:= a[i];

       k:= i;

     end;

   writeln('Min = ', min, ', Index = ', k);

 end;

 if (s = 'y') or (s = 'Y') then

 begin

   for i:= 1 to 5 do

     for j:= 1 to 4 do

       if a[j] > a[j + 1] then

       begin

         k:= a[j];

         a[j]:= a[j + 1];

         a[j + 1]:= k;

      end;

   for i:=1 to 5 do

     write(a[i], ' ');

   writeln;                          

 end;

 if (s = 'z') or (s = 'Z') then

 begin

   for i:=1 to 5 do

     k:= k + a[i];

   writeln('Сумма = ', k);

 end;

end.