Каждая строка таблицы 2 содержит информацию о ребёнке и об одном из его родителей. Информация представлена значением поля ID в соответствующей строке таблицы 1. Определите на основании указанных данных, какое из приведённых после таблиц утверждений является истинным.
1. Брамс Б.Г. является матерью Брамс Т.А. Выписывем из Таблицы 1 значения ID и пол. Брамс Б.Г. (37, Ж), Брамс Т.А. (36, Ж). Оба пола женские, продолжаем поиск. Ищем в Таблице 2 строку, где ID_Родителя=37 и ID_ребенка=36. Такой строки нет, следовательно утверждение 1 ложно. 2. Ващенко Г.Г. является матерью Брамс Б.Г. Брамс Б.Г. (37, Ж), Ващенко Г.Г. (38, М). Пол Ващенко Г.Г. мужской, поэтому он не может являться матерью. Утверждение 2 ложно. 3. Рисс Н.В. является дочерью Мирон Г.В. Мирон Г.В. (66, Ж), Рисс Н.В. (56, Ж). Оба пола женские, продолжаем поиск. Ищем в Таблице 2 строку с 66 и 56, такая строка есть. Утверждение 3 истинно. 4. Ващенко К.Г. является дочерью Брамс Т.А. Ващенко К.Г. (48, М), Брамс Т.А. (36, Ж). Ващенко К.Г. имеет мужской пол, поэтому он не может являться дочерью. Утверждение 4 ложно.
>>количества четных отрицательных чисел от -15 до 40
Очевидно, что ежели чётных отрицательных, то имеет смысл лишь от -15 до 0.
var counter, sigma : integer; begin counter := -15 sigma := 0; while counter < 0 do if (counter mod 2) = 0 then sigma += 1; counter += 1; writeln(sigma); readln() end.
Const n=10; var a:array[1..n] of integer; k,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(9)+2; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('Четных: ',k,' нечётных: ',n-k); end.