1.1: (Число меньше 40) ИЛИ НЕ (Число четное) должно быть ложным, варианты:
- 1: 123 не меньше 40 и не четное, получится истина
- 2: 56 не меньше 40 и четное, получаем ложь
- 3: 9 меньше 40, значит, истина
- 4: 8 меньше 40, истина
Ответ: 2
2.1:
НЕ((первая буква согласная) И (Последняя буква гласная)) должно быть ложно
- 1: Дарья, НЕ((Первая согласная)И(Последняя гласная)) = НЕ((истина)И(истина)) = ложь
- 2: Павел, НЕ((Первая согласная)И(Последняя не гласная)) = НЕ((истина)И(ложь)) = истина
- 3: Абрам, НЕ((Первая не согласная)И(Последняя не гласная)) = НЕ((ложь)И(ложь)) = истина
- 4: Анфиса, НЕ((Первая не согласная)И(Последняя гласная)) = НЕ((ложь)И(истина)) = истина
Ответ: 2
1.2
A1 = 3, B1 = 4, C1 = 2, D1 = 5
A2 = D1 - C1 + 1 = 5 - 2 + 1 = 4
B2 = D1 - 1 = 5 - 1 = 4
C2 = ?
D2 = B1 * 4 = 4 * 4 = 16
По рисунку видно что сумма всех меньших равна большему и сумма двух меньших равна половине большего(или же их сумме), C2 = 16 - 4 - 4 = 8
- 1: D1 - A1 = 5 - 3 = 2, не подходит
- 2: B1 + 1 = 4 + 1 = 5, тоже не то
- 3: D1 + A1 = 5 + 3 = 8, подходит
- 4: C1 * D1 = 2 * 5 = 10, не подходит
Ответ: 3
2.2
A1 = 2, B1 = 4, C1 = 6, D1 = 8
A2 = D1 / B1 = 8 / 4 = 2
B2 = D1 - B1 = 8 - 4 = 4
C2 = A1 + 2 = 2 + 2 = 4
D2 = ?
По рисунку видно что имеется 2 пары одинаковых значений, также сумма большего и меньшего равны другой сумме, 4 + 2 = 4 + X, X = 2
- 1: A1 - 1 = 2 - 1 = 1, не подходит
- 2: C1 + B1 = 6 + 4 = 10, тоже не то
- 3: C1 + 1 = 6 + 1 = 7, не подходит
- 4: C1 / 3 = 6 / 3 = 2, подходит
Ответ: 4
Ну а 3 задание не видно.
1. Определим общее количество символов.
8×4=32
2. Определим количество бит, необходимых для кодирования символа
32=2⁵, поэтому понадобится 5 бит.
Ответ б)
Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:=numb div 100;
des:= numb mod 100;
des:= des div 10;
ed:= numb mod 10;
writeln(sot,' ',des,' ',ed);
end.
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
Var a,b,c,q:real;
begin
read(a,b,c);
q:=(a+b+c)/3;
writeln('a: ',abs(a-q));
writeln('b: ',abs(b-q));
writeln('c: ',abs(c-q));