1. Сколько вершин и рёбер у графа, представленного на рисунке?

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то  

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.

var a,b,c: integer;

begin

  writeln('введите 3 целых числа');

  read(a,b,c);

  write('среди трех данных чисел есть хотя бы одна пара ');

  if (a=b) or (a=c) or (b=c) then write(' - выражение истинно') else write(' - выражение ложно');

end.