1) A='Q' -<em>cимвольный.</em>
2) B=5 - <em>целый.</em>
3) С= 45. - <em>вещественный.</em><em />
4) D = True - <em>логический.</em>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2('Введите через пробел два натуральных числа:');
while b>0 do
(a,b):=(b, a mod b);
Writeln('НОД = ',a)
end.
uses crt;
var ch,a:integer;
begin
readln(ch);
readln(A);
if ((ch div 10)+( ch mod 10)) mod a = 0 then
writeln('YES') else writeln('NO');
readln;
end.
2.
uses crt;
var i,os:integer;
a:array[1..31] of integer;
begin
randomize;
os:=0;
for i:=1 to 31 do
begin
a[i]:=random(5)+0;
if a[i]=0 then inc(os);
end;
for i:=1 to 31 do
write(a[i],' ');
writeln;
if os = 10 then
writeln('YES') else writeln('NO');
readln;
end.
Здесь скорее логика, чем расчеты. Таблица обычно читается слева направо по строкам.
1) Для вершины А рассмотрим первую строку таблицы. Имеем значения только в столбцах с точками В и С. Это значит, что из вершины А есть ребро в вершину В с длиной 3 и в вершину С с длиной 3. На всех схемах есть такие рёбра, так что пока ответ не готов.
2) Идем далее, рассмотрим вторую строку таблицы с вершиной В. Вершину А можно пропустить, мы уже её рассматривали выше. Числа есть в колонках с вершинами C, D, E. Проверим каждую схему по очереди:
- BC=2, но на схемах №1 и №2 нет такого прямого ребра! Значит, дальше схемы №1 и №2 не рассматриваем! На схемах №3 и №4 рёбра ВС равны 2. Это подходит по условию.
- ВD=1, на схемах №3 и №4 такое ребро есть.
- BE=4, на схеме №3 такое ребро есть, а на схеме №4 такого ребра нет! Следовательно, единственной верной схемой является схема №3.
На этом можно и закончить решение задачи, а можно проверить до конца соответствие таблице: из вершины С есть ребро в вершину D и равно 5, что соответствует схеме №3 (вершины A, B не нужно проверять, это сделано раньше, когда рассматривали рёбра АС и ВС)
Ответ: таблица связей соответствует схеме №3