кроссворд на фото
Объяснение:
1.Эта единица часто используется для выражения объема памяти КОМПЬЮТЕРА и дисковода. (гигабайт)
2.Величина, равная 8 битам. (Байт)
3.Содержание сигналов, которые человек получает из различных источников. (Информация)
4. 1 048 576 байт (220). В другом понимании - 1 000 000 байт. (мегабайт)
5. наименьший элемент языка, имеющий идею или смысл, пригодный для общения. (сообщение)
6. Наименьшая единица текстовой информации (символ)
7. категория, выражающая внешнее, формальное взаимоотношение предметов или их частей (количество)
8. количественная характеристика пространства, занимаемого телом или веществом. (объём)
9.Минимальная единица измерения информации. (Бит)
10.Число символов в алфавите (мощность)
11.Конечный набор для представления информации с различными символами. (Алфавит)
12. Письменное или устное высказывание (текст)
826178 827557
865748 867498
280514 283175
199991 200002
304502 306027
Объяснение:
Задачка интересная смог решить только методом перебора
(Закономерностей не выявил)
состряпал функцию для Excel
Function Sleft(s As Variant) 'для левых счастливых чисел
For i = 1 To s
s = s - i
ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))
rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))
If ls = rs Then Exit For
Next
Sleft = s
End Function
Function SRight(s As Variant) 'для правых счастливых чисел
For i = 1 To s
s = s + i
ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))
rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))
If ls = rs Then Exit For
Next
SRight = s
End Function
X: array [1..15] of integer;
i, sum: byte;
begin
sum := 0;
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 15 do
begin
X[i] := random(15)-9;
if ((X[i] > 0) and (X[i] mod 2 = 0)) then
sum := sum + X[i];
write(X[i],' ');
end;
writeln;
writeln('Сумма положительных четных = ', sum);
readln;
end.