М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

По горизонтали: 2.сведения об окружающем нас мире.3.изменение информации компьютером.6.изучаемый предмет.8.хранилище информации. по вертикале: 1.наборсимволов,используемых для записи сообщения. 2.энциклопедия или справочник для того,кто собирает информацию. 4.машина для обработки информации. 5.символ двоичного кодирования. 7.устройство, людям передавать друг другу информацию.

👇
Ответ:
Nekomimi11
Nekomimi11
13.09.2020
1) алфавит
2) по горизонтали: информация, по вертикали: источник
3) обработка
4) Компьютер
5) единица
6) информатика
7) телефон
8) библиотека
вроде так
4,7(71 оценок)
Открыть все ответы
Ответ:
заушкина
заушкина
13.09.2020
1)Немного не понял фразу "меньше данного числа 2". Если найти сумму всех элементов, которые меньше двух в массиве размером 20 элементов, то это 

var s,i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
 read(m[i]);
s:=0;
for i:=1 to 20 do
 if m[i]<2 then s:=s+m[i];

writeln(s);
end.
2)
var i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
read(m[i]);

for i:=1 to 20 do
if (m[i] mod 5=3) then writeln(m[i]);
end.

3) var a,b,i:longint;
m:array[1..100] of real;
begin
read(a);
read(b);
for i:=1 to 20 do
read(m[i]);
for i:=1 to 20 do
if (m[i]>=a) and (m[i]<=b) then writeln(i);
end.

4)var
o,s,i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
begin
read(m[i]);
s:=s+m[i];
end;

o:=s div 20;

for i:=1 to 20 do
if m[i]>o then writeln(m[i]);
end.
 
прощения, если есть ошибки в синтаксисе. Нет возможности проверить в компиляторе
4,7(4 оценок)
Ответ:
KatyushaLis77
KatyushaLis77
13.09.2020
Private Sub Command1_Click()
Form1.Shape1.Visible = True
Form1.Shape2.Visible = True
Form1.Shape3.Visible = True
Form1.Shape4.Visible = True
Form1.Shape5.Visible = Falce
Form1.Shape6.Visible = Falce
Form1.Shape7.Visible = Falce
Form1.Shape8.Visible = Falce
End Sub
Private Sub Command2_Click()
Form1.Shape5.Visible = True
Form1.Shape6.Visible = True
Form1.Shape7.Visible = True
Form1.Shape8.Visible = True
Form1.Shape1.Visible = Falce
Form1.Shape2.Visible = Falce
Form1.Shape3.Visible = Falce
Form1.Shape4.Visible = Falce
End Sub
4,4(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ