На Паскале:
program Program1;
var i, j, n, k: integer;
var result: real;
var array1: array [1..255] of real;
begin
result := 0;
write('Введите значение N (не более 255): ');
readln(n);
for i := 1 to n do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(array1[i]);
end;
begin
writeln('Массив, размером - ', n, ' элементов(а):');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j:=1 to n do
if array1[i] = array1[j] then k := k + 1;
if k = 1 then result := result + array1[i];
end;
writeln('Сумма уникальных элементов массива = ', result);
<span>end.</span>
1/2048 Кбайт = 1024/2048 байт = 1/2 байт = 8/2 бит = 4 бита
Количество подъездов = 2^4 = 16
1. Посчитаем количество символов в книге
137×50×35 = 239750
2. Информационный объем книги составляет
239750×1 = 239750 байт
В 1Кб= 1024 байта
3. 239750×1024=245504000 КБ
Ответ : 245504000 кб
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
40 в 8=32 в десятичной
Е6 в 16= 230 в 10
230-32=198 натуральных чисел