Разгадайте кроссворд. по горизонтали: 1 – похищение пароля; 2 – состояние, в котором пользователь находится или находился; 3 – участник группы, имеющий право наказывать и поощрять других участников группы; 4 – регистрационная запись, содержащая сведения, которые пользователь сообщает о себе в социальной сети. по вертикали: 5 – сообщество людей со сходными интересами, которые общаются друг с другом внутри социальной сети; 6 – отдельно взятое сообщение в форуме, в какой-то теме; 7 – законопослушный пользователь социальной сети, выложивший свои реальные фото; 8 - удаление участника из группы за некорректное поведение через занесение его в черный список. из выделенных букв можно составить слово, которое означает: 1) быстродействующий компьютер, ресурсы которого используются многими пользователями; 2) назойливая реклама сомнительного характера; 3) сайт, интернет-проект, узел сети; 4) программа, которая проникает в компьютерные системы через интернет и выполняет вредоносные функции или действия.
Ответы
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,50); a.Println;
var m:=a.Average;
Write('Элементы, меньшие среднего значения: ');
Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.
Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6
begin
var a:=ArrRandom(13,0,100); a.Println;
Write('Элементы, меньшие 50: ');
Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.
Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,50); a.Println;
var m:=a.Average;
Write('Элементы, меньшие среднего значения: ');
Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.
Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6
begin
var a:=ArrRandom(13,0,100); a.Println;
Write('Элементы, меньшие 50: ');
Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.
Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=-5.0;
Writeln(' x x*x');
repeat
Writeln(x:4:1,x*x:10:2);
x+=0.5
until x>5
end.
Результат
x x*x
-5.0 25.00
-4.5 20.25
-4.0 16.00
-3.5 12.25
-3.0 9.00
-2.5 6.25
-2.0 4.00
-1.5 2.25
-1.0 1.00
-0.5 0.25
0.0 0.00
0.5 0.25
1.0 1.00
1.5 2.25
2.0 4.00
2.5 6.25
3.0 9.00
3.5 12.25
4.0 16.00
4.5 20.25
5.0 25.00
// Внимание! Если программа не работает, обновите версию!
begin
var x:=-5.0;
Writeln(' x x*x');
repeat
Writeln(x:4:1,x*x:10:2);
x+=0.5
until x>5
end.
Результат
x x*x
-5.0 25.00
-4.5 20.25
-4.0 16.00
-3.5 12.25
-3.0 9.00
-2.5 6.25
-2.0 4.00
-1.5 2.25
-1.0 1.00
-0.5 0.25
0.0 0.00
0.5 0.25
1.0 1.00
1.5 2.25
2.0 4.00
2.5 6.25
3.0 9.00
3.5 12.25
4.0 16.00
4.5 20.25
5.0 25.00
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Программа құрудың кіріктірілген ортасы деген не?
Автор: sohrokova809
Цифры какие системы счисления приведены на рисунке 1.1
Автор: violettamakhina2537
Переведите десятичное число 36 в двоичную систему.
Автор: shchepinasm
2. статус
3. модератор
4. аккаунт
5. группа
6. пост
7. реал
8. бан
Слово - ресурс