М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Rkkshv
Rkkshv
03.12.2020 06:30 •  Информатика

Ниже представлены два фрагмента таблиц из базы данных о жителях микрорайона. Каждая строка таблицы 2 содержит информацию о ребёнке и об одном из его родителей. Информация представлена значением поля ID в соответствующей строке таблицы 1. Определите на основании приведённых данных ID женщины, ставшей матерью в наиболее молодом возрасте. При вычислении ответа учитывайте только информацию из приведённых фрагментов таблиц.

👇
Ответ:
straer122122
straer122122
03.12.2020

эм не понятно 1эоо

4,4(91 оценок)
Ответ:
Angelamur
Angelamur
03.12.2020

Давайте считать по детям. Будем быстрее мне кажется

1) Ребенок ID-25 имеет родителей 24(М-дальше не смотрим) и 44.

44 - 1938, 25 - 1974. 1974-1938=36 лет

2) Ребенок 26 (2001) - родители 25(М) и 64(Ж1973)

2001-1973=28 лет - моложе чем 1)

3) 34(1964) - 24(М), 44(Ж  1938)

1664-1938=26 - моложе 2)

4) 35(1990) - 34(Ж1964)

1990-1964=26 - как 3)

5) 36(1964) -14(Ж1937)

1964-1937=27

6) 46(1993) -34(Ж1964)

1993-1964=29

7) 54(1995) - 64(Ж1973)

1995-1973=22

ответ -на основании этой выборки

самой молодой мамой из этой выборки была Крот П.А., которая родила в 22 совместно с Сканави П.А. в 1995 году Клычко А.П. Вообще у этой пары минимум 2 ребенка. В 2001 году у них родился так же Сканави П.П., который является родным братом для Клычко А.П.

4,7(65 оценок)
Открыть все ответы
Ответ:
BlackStar14
BlackStar14
03.12.2020
Const
 n = 20;

var
 pos,neg: integer;
 i,k,x: integer;
 ev,un: integer;
 a,b: array [1..n] of integer;

begin
 for i := 1 to n do
   read(a[i]);
  k := 0;
 pos := 0;
 neg := 0;
  for i := 1 to n do
   begin
      ev := 0;
   un := 0;
      x := a[i];
      if x <> 0 then
     if x > 0 then
       if (x < pos) or (pos = 0) then
         pos := x
       else
     else
       if (x > neg) or (neg = 0) then
         neg := x;
      x := abs(x);
      while x <> 0 do
     begin
     if odd(x) then
       un := un + 1
     else
       ev := ev + 1;
     x := x div 10
     end;
      if un = ev then
     begin
     k := k + 1;
     b[k] := a[i]
     end
      end;

 writeln(pos,' ',neg);
 for i := 1 to k do
   write(b[i],' ')
 end.
4,5(1 оценок)
Ответ:
varyatitova20
varyatitova20
03.12.2020

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.

4,7(80 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ