Представьте имеющуюся информацию в форме графа и ответьте на следующие вопросы. 1)Информация о скольких супружеских парах представлена в таблицах?
2)Какой идентификационный номер (ID) у дяди Решко В. А.?

запускаем одновременно часы в 8 минут и 3 минуты -  (8 и 3). после окончания 3-х минут переворачиваем их и продолжаем у нас будет (5 и 3). после окончания  вторых 3-х минут в восьмиминутных часах останется 2 минуты (2 и 3). снова запускаем 3-х минутные чесы вместе с оставшимися 2-х минутными. после окончания  2 минут в восьмиминутныхъ часах в 3-х минутных останется 1 минута (0 и 1). начиная с этой минуты запустив 2 раза трехминутные часы получаем искомые 7 минут. 

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.