<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.
<u>Результат выполнения программы:</u>
100
147
Объект управления:икона
Управляющее воздействие:чтение
Цель управления:помолиться иконе
Результат управления: вера в бога
при n=
1) * 5 (начало)
2) * 3 (n-2=5-3=2)
3) * 1 (n-2=3-2=1)
4) * -1 (n-2=1-2=-1)
5) * 0 (n div 2 =-1 div 2 =0)
6) * 0 (n div 2 =1 div 2 =0)
7) * 1 (n div 2 =3 div 2=1)
8) * -1 (n-2=1-2=-1) ранее была такая ситуация, далее два 0
9) * 0
10) * 0
11) * 1
12) * -1
13) * 0
14) * 0
---------------------------------------------------
15) * (n=5 div 2 =2)
16) * (n=2-2=0)
17)* (n=2 div 2=1)
18) * (n=1-2=-1)
19) * (n=0)
20) * (n=0)
21) * (n=1)
22) * (n=-1)
23) * (n=0)
24) * (n=0)
-------------------------------------------------------
и ещё раз 10 при второй F(n div 2)
ВСЕГО 34 звёздочки *
Var
n,i:integer;
s,a:real;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla:');
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee arifmeticheskoe =',s/n);
readln();
end.
