6.Представление об автоматических и автоматизированных системах управления

например такие числа

954-459=495

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

саша =в  петя=к  ваня=п  коля=с

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.