1. Укажите названия типов на языке Паскаль для следующих данных:
23; 43.76; -1.75Е2; ‘символ’; ‘_’; ‘А’; true.
2. Укажите данные вещественного типа: 1.125; -7; 47; 321.0; 1.5Е-3.
3. Укажите тип результата для выражений: 12-3; 16/4; ‘А * В’; K>M;
4. Вычислить значение 13 div 4 и 13 mod 4

Решение в PascalABC.Net:

const
  n=20;
var
  a:array[1..n] of real;
  i:integer;
  amin:real;
begin
  Randomize;
  Writeln('Элементы массива');
  amin:=100;
  for i := 1 to n do
  begin
    a[i]:=50*Random-25;
    Write(a[i]:8:3);
    if (amin>a[i]) and (a[i]>0) then amin:=a[i]
  end;
  Writeln;
  Writeln('Минимальный среди положительных элемент: ',amin:0:3);
end.

Тестовое решение:
Элементы массива
  -2.958 -12.624 -15.038  10.972 -14.160  -4.612  -8.148  14.052  22.818  -2.376   6.954  22.090   7.510 -21.058 -17.434  -1.651  24.170 -15.143   9.159  -6.910
Минимальный среди положительных элемент: 6.954

1)У 60 человек есть кошка и собака.

у 20 - кошка и птичка

у 30 - собака и птичка

У 10 человек есть и кошка, и собака, и птичка. 1.1

Отсюда делаем вывод, что набор пар животных 60, 20 и 30 три раза посчитали тех у кого одновременно все эти трое видов животных есть.

теперь считаем:

у 60-10=50 есть только кошка и собака(без птички!) 1.2

у 20-10=10 есть только кошка и птичка(без собаки!) 1.3

у 30-10=20 есть только собака и птичка(без кошки!) 1.4

2)у 150 человек есть кошка

у 130 - собака

у 50 - птичка.

Это у кого возможно по два-три животных посчитаем, нужно их почистить:

2.1) уберем у кошколюбов тех у кого по 2-3 вида животных:

это 1.1, 1.2, 1.3 множества: 150-10-50-10=80 есть только кошки

2.2) уберем у собаководов, тех у кого по 2-3 вида животных:

это 1.1, 1.2, 1.4 множества: 130-10-50-20=50 есть только собаки.

2.3)  уберем у птицефилов, тех у кого по 2-3 вида животных:

это 1.1, 1.3, 1.4 множества: 50-10-10-20=10 есть только птицы.

3) Теперь можем сложить чистую информацию:

чистые(не пересекающиеся с остальными) множества:

не забудем про 4.1) У 70 человек вообще нет домашнего животного

1.1, 1.2, 1.3, 1.4, 2.1, 2.2, 2.3, 3.1

10+50+10+20+80+50+10+70=300