#include <iostream>
using namespace std;
union type {
short si;
int i;
float f;
char ch;
bool b;
};
int main()
{
type example;
cout << "Union:\n";
example.si = 123;
cout << " Short int " << example.si << endl;
example.i = 2000145;
cout << " Int " << example.i << endl;
example.f = 3.14;
cout << " Float " << example.f << endl;
example.ch = 'a';
cout << " Char " << example.ch << endl;
example.b = false;
cout << " Bool " << example.b << endl;
return 0;
}
Все три объединил в одну. Смотри в приложении.
Ответ:
256 цветов
Объяснение:
где N - количество цветов,
i - количество бит
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544
Предложенные фрагменты программы должны выполнять нахождение и вывод абсолютной величины суммы первых 1, 2, ...8 элементов массива А - всего 8 сумм. В реальности будут восемь раз выведены нули, потому что отсутствует фрагмент, в котором элементам массива А присваиваются какие-либо значения.
Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.
1. Pascal
var
A: array[1..100] of integer;
N, I, J: integer;
S: real;
begin
N := 8;
for I := 1 to N do
begin
S := 0;
for J := 1 to I do S := S + A[J];
S := abs(S);
writeln('S=', S:9:2)
end;
readln;
end.
2. QBASIC
DEFINT I-J, N, S
DIM A(100) AS INTEGER
N = 8
FOR I = 1 TO N
S = 0
FOR J = 1 TO I
S = S + A(J)
NEXT J
S = ABS(S)
PRINT S
NEXT I
END
3. Школьный АЯ (КуМИР)
алг слово(рез вещ s)
нач
цел таб A[1:100]
цел n,I,j
n:=8
нц для I от 1 до n
s:=0
нц для j от 1 до I
s:=s+A[j]
кц
s:=abs(s)
вывод s
кц
<span>кон</span>