Решения. Из 100 конкурсантов, прибывших на танцевальный конкурс 30 человек хорошо танцуют танец ТАНГО. 28 человек хорошо танцуют танец РУМБА и 42 человека хорошо танцуют танец ЧА-ЧА-ЧА. Но 8 человек из всех конкурсантов одновременно хорошо владеют танцем Румба и Танго. Танцем Румба и Ча-Ча-Ча одновременно владеют 10 человек. 5 человек хорошо умеют танцевать только танец Ча-Ча-Ча и Танго, и 3 человека одновременно сильны во всех 3-х танцах. Сколько конкурсантов не владеют хорошо ни одним танцем?

ответ:

Задание выполнить с кругов Эйлера.

​

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.