1)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений и
меет одинаковые значения (эквивалентны): (A AND B) AND C и A AND (B AND C).
2)Найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.
<u>Задание 1.</u> var A, B, C, F: boolean; i, j, k: integer;
begin for i := 0 to 1 do for j := 0 to 1 do for k := 0 to 1 do begin A := (i = 1); B := (j = 1); C := (k = 1); F := ((A and B) and C) = (A and (B and C)); Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F) end end.
<u>Результат выполнения программы:</u> A=False, B=False, C=False, результат сравнения:True A=False, B=False, C=True, результат сравнения:True A=False, B=True, C=False, результат сравнения:True A=False, B=True, C=True, результат сравнения:True A=True, B=False, C=False, результат сравнения:True A=True, B=False, C=True, результат сравнения:True A=True, B=True, C=False, результат сравнения:True A=True, B=True, C=True, результат сравнения:True
<u>Задание 2.</u> var a, b, c: integer;
begin for a := 1 to 9 do for b := 0 to 9 do for c := 0 to 9 do if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c) end.
Uses crt; const a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36); var sr:real; i,n,sum:integer; begin for i:=1 to 10 do write(a[i]:3); writeln; for i:=1 to 10 do if a[i]>50 then begin sum:=sum+a[i]; n:=n+1; end; sr:=sum/n; writeln('Среднее значение горячих участков: ',sr); end.<span> </span>