Водной семье было много детей. 7 из них любили капусту, 6 – морковь, 5 – горох, 4 – капусту и морковь. те. кто любили горох, не любил ни капусту, ни морковь. сколько детей было в семье?

Т. к. 1 ребенок любит и капусту и морковь и горох, то: 

4 - 1 = 3 ребенка любят капусту и морковь 

3 - 1 = 2 детей любят капусту и горох, 

2 - 1 = 1 ребенок любит морковь и горох 

7 - (1 + 2 + 3) = 1 ребенок любит только капусту 

6 - (1 + 3 + 1) = 1 ребенок любит только морковь 

5 - (1 + 2 + 1) = 1 ребенок любит только горох

Т. к. мы узнали предпочтения всех детей то сложив количество этих детей получим сколько человек в семье: 

1 + 3 + 2 + 1 + 1 + 1 + 1 = 10 детей. 

ответ. В семье 10 детей.

Числовые Типы:

integer - целое число в диапазоне от -2147483647 до 2147483647

longint - То же что и integer. Видимо называется так по образцу со своими младшими братьями - smallint и shortint.

BigInteger - Тоже целое число. Реализовано не совсем как тип данных (Является классом .NET Framework) И поддерживается только в новых версиях языка Pascal - PascalABC.NET. Имеет бесконечный диапазон, ограниченный лишь объёмом оперативной памяти устройства, на котором запущена программа, использующая в своей работе числа, являющиеся экземплярами BigInteger

shortint - Целочисленный тип меньшего диапазона, нежели Integer

smallint - Целочисленный тип меньшего диапазона, нежели integer, но большего чем shortint

Int64 - 64-битное целое число. Имеет самый большой диапазон среди всех целочисленных типов после BigInteger

Byte - целое беззнаковое число, занимающее в памяти компьютера ровно 1 байт. Имеет диапазон от 0 до 255

Word - Целое беззнаковое число в диапазоне от 0 до 65535

real - Действительное число. Число с плавающей точкой

double - Действительное число. Так же является числом с плавающей точкой, как и real, но отличается точностью вычислений (а вот в чью пользу - убей, не помню)

Строковые и символьные типы:

string - Unicode-строка

char - один какой либо unicode-символ

Логический тип:

boolean - логическая переменная. Может иметь только два значения - True (Истина) или False (Ложь)

Объяснение:

var

 a, b, c, v: integer;  

 s, d1, d2: real;

begin

 Writeln('Введите А: ');

 Read(a);

 Writeln('Введите Б: ');

 Read(b);

 Writeln('Введите C: ');

 Read(c);

 V := a * b * c;

 Writeln('Результат "V:=a*b*c" = ', V);

 Writeln('Введите D1: ');

 Read(d1);

 Writeln('Введите D2: ');

 Read(d2);

 s := d1 * (d2 / 2);

 Writeln('Результат "s:=d1*(d2/2)" = ', s);

end.

Более простой вариант:

begin

 var (a,b,c):= ReadInteger3('Введите А B C: ');

 Println('Результат :', a*b*c);

 var (d1,d2):=ReadReal2('Введите D1 D1: ');

 Println('Результат: ', d1*(d2/2));

end.