Проанализируй и запиши верные ответы.​

Объяснение:

10

12 ТАК КАК ПРИ СЛОЖЕНИИ ДОЛЖНО ПОЛУЧИТСЯ ТАК НЕ КАК ИНАЧЕ

1)

var

  a, b, c: real;

  ide: boolean;

begin

  ide: = false;

  writeln('введите 2 числа');

  readln(a, b);

  c: = a;

  if (ide = false) and (a < b) then 

  begin

    a: = a + b;

    b: = c * b;

    ide: = true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (ide = false) and (b < a) then 

  begin

    a: = a * b;

    b: = a + b;

    ide: = true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (ide = false) and (a = b) then

  begin

    writeln('числа равны');

    ide: = true;

  end;

end.

2)

var

  a, b: real;

begin

  writeln('введите 2 числа');

  readln(a, b);

  if a < b then a: = 0;

  writeln('a = ', a, ', b = ', b);

end.

3)

var

  k, b: real;

begin

  writeln('введите цену журнала');

  readln(k);

  writeln('введите, сколько у покупателя денег');

  readln(b);

  if b > k then writeln('покупатель получит ', b - k, ' р сдачи');

  if b = k then writeln('покупатель не получит сдачи');

  if b < k then writeln('покупателю придется доплатить ', k - b, ' р');

end.

4)

var

  a: 100000..999999;

  a1, a2, a3, a4, a5, a6: 1..9;

begin

  writeln('введите шестизначное число');

  readln(a);

  a1: = a div 100000;

  a2: = (a mod 100000) div 10000;

  a3: = (a mod 10000) div 1000;

  a4: = (a mod 1000) div 100;

  a5: = (a mod 100) div 10;

  a6: = a mod 10;

  if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('число является счастливым')

  else writeln('число не является счастливым');

end.

5)

var

  a, b: integer;

begin

  writeln('введите числа a и b');

  readln(a, b);

  if b mod a = 0 then writeln('число ', a, ' является делителем числа ', b)

  else writeln('число ', a, ' не является делителем числа ', b);

end.

если все правильно, отметь решение как лучшее)

если возникнут вопросы - задавай