1. ИСТИНА
2. ИСТИНА
3. ИСТИНА
4. ИСТИНА
5. ИСТИНА
6. ЛОЖЬ
Объяснение:
В информатике ИСТИНА обозначается как 1, ЛОЖЬ -- как 0. ИЛИ считают за сложение, И -- за умножение, НЕ -- за "минус"(в значении изменения на противоположное: 0 на 1, 1 на 0). Но стоит помнить, что здесь работают совсем другие правила: к примеру, 1+1=1, так как, очевидно, истина + истина = истина. Также минус считается в первую очередь, затем умножение, и лишь потом сложение.
Тогда мы имеем:
a = 1
b = 1
c = 0
1. a и b = 1 * 1 = 1 = ИСТИНА
2. a или b = 1 + 1 = 1 = ИСТИНА
3. a и b или c = 1 * 1 + 0 = 1 ИСТИНА
4. a или b и c = 1 + 1 * 0 = 1 = ИСТИНА
5. (а или b) и (с или b) = (1+1)*(0+1) = 1*1=1 ИСТИНА
6. не а или b и c = -1 + 1 * 0 = -1 + 0 = 0+0=0 ЛОЖЬ
114.31
Объяснение:
114.31writeln (s:6:2)
s - переменная 6 - количество знаков, для вывода переменной
2 - количество знаков после запятой (точки) они включены в это количество)
3 знака до точки, 1 знак сама точка, 2 знака после точки.
Последний знак округляется (от 5 в большую сторону).
Если количество знаков, выделяемых под переменную больше, чем её размер, то перед переменной добавляются необходимые пробелы.
Если мы выводим не вещественную (дробную) переменную, то через двоеточие указывается только количество знаков, выделяемых для вывода переменной (второе двоеточие не используется).
uses GraphABC;
var
n, i: integer;
a: array of integer = (0,0, 100,270, 85,170, 240,165, 250,65, 410,65, 413,170, 405,270, 100,270, //кузов
0,0, 251,165, 260,75, 328,75, 320,165, 280,225, 245,225, 251,165, 320,165, //дверь
0,0, 330,165, 338,75, 400,75, 403,165, 330,165, //окно
0,0, 170,167, 170,140, 180,137, 180,70, 185,65, 185,137, 195,140, 195,166,//труба
0,0, 168,290, 105,353, 42,290, 105,227, 168,290, 0,0, 163,314, 81,348, 47,266, 129,232, 163,314,
0,0, 150,335, 60,335, 60,245, 150,245, 150,335, 0,0, 129,348, 47,314, 81,232, 163,266, 129,348, //п.колесо
0,0, 463,265, 375,353, 287,265, 375,177, 463,265, 0,0, 456,299, 341,346, 294,231, 409,184, 456,299,
0,0, 437,327, 313,327, 313,203, 437,203, 437,327, 0,0, 409,346, 294,299, 341,184, 456,231, 409,346); //з.колесо
begin
for n := 0 to Length(a) div 2 - 1 do
begin
i := 2*n;
if (a[i] = 0) and (a[i + 1] = 0)
then
MoveTo(a[i + 2], a[i + 3])
else
LineTo(a[i], a[i + 1]);
end;
end.
Проверял в PascalABC.NET 3.4.2
Правда, предварительно ещё рассчитал все точки обоих колёс вот по этой программе (но, это уже так, просто для сведения):
var
x1, y1, r1, x2, y2, r2: integer;
n, i: integer;
a: real;
begin
x1:=105; y1:=290; r1:=63;
x2:=375; y2:=265; r2:=88;
for i := 0 to 3 do
begin
write (0,',',0,', ');
for n := 0 to 4 do
begin
a:=90*(n mod 4)+22.5*i;
write (Round(r1*Cos(Pi*a/180))+x1,',', Round(r1*Sin(Pi*a/180))+y1,', ');
end;
end;
writeln ();
for i := 0 to 3 do
begin
write (0,',',0,', ');
for n := 0 to 4 do
begin
a:=90*(n mod 4)+22.5*i;
write (Round(r2*Cos(Pi*a/180))+x2,',', Round(r2*Sin(Pi*a/180))+y2,', ');
end;
end;
write (');');
end.