1. <span>б) Программа, записанная на диск
2. </span><span>а) txt , doc, dot
3. </span><span>в) exe, com, bat
4. </span><span>в) Компакт-диск – устройство для хранения информации
5. </span><span>б) Очищается при выключении ПК
6. </span><span>в) многофункциональное электронное устройство для работы с информацией
7. </span><span>а) тем, что на внешних носителях информация может хранится после отключения питания компьютера
8. </span><span>а) элементарная информационная единица, содержащая последовательность байтов и имеющая уникальное имя
9. </span><span>г) тип информации, содержащейся в файле
10. б) </span><span>PROBA.TXT
11. в) </span><span>1024 Кбайт
12. в) </span><span>выделение, копирование, вставка
13. б) </span><span>загрязнения<span>магнитных полей
14. г) </span></span><span>антивирусную программу, установленную на компьютер
15. а) </span><span>при работе компьютера в сети
16. б) </span><span>программы и документы
17. Антивирусная программа - программа, которая обнаруживает вирусы, защищает компьютер от зараженных файлов, по возможности лечит зараженные файлы и оберегает работу системы от нежелательных последствий, которые могут случиться из-за вируса.</span>
For I:=1 to 100 do
begin
a[i]:= random (50) ;
if I < 11 then s:= s + a [I ] ;
if I > 19 and I < 51 then write ( a [I] , ' ');
if I = 51 then writeln ( s/10);
if I < 11 and (a [ I ] mod 2 = 0 ) then writeln ( a [I];
end;
var
a: <em>integer</em>;
Begin
readln(a);
writeln(a mod 100 div 10);
<span>End.</span>
#include <iostream>
using namespace std;
int main() {
int a, b, c, min, max;
cin >> a >> b >> c;
max = (a > b) ? a : b;
min = (a < b) ? a : b;
a = min; b = max;
max = (b > c) ? b : c;
min = (b < c) ? b : c;
b = min; c = max;
max = (a > b) ? a : b;
min = (a < b) ? a : b;
a = min; b = max;
cout << a << " " << b << " " << c;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function InArea(p:(real,real)):boolean;
begin
var (x,y):=p;
Result:=(Abs(x)<=1) and (Abs(y)<=1) or
(y>=x-2) and (x>=0) and (y<=0)
end;
begin
var n:=ReadInteger('n=');
Randomize;
var P:=ArrGen(n,i->(Random(-11,22)/10,Random(-22,12)/10));
Writeln('Исходные точки (x,y)'); P.Println;
var R:=P.Where(x->InArea(x)).ToArray;
Writeln('Отобрано точек - ',R.Length);
Writeln('Отобранные точки (x,y)'); R.Println
end.
<u>Пример</u>
n= 20
Исходные точки (x,y)
(0,0.6) (1.1,1.1) (-0.9,0.3) (-0.7,-0.3) (1.3,-1.7) (-1,-1.6) (1.6,-1.5) (1.3,-0.2) (0.5,-0.7) (-0.7,-1.5) (1,-1.2) (1.9,0.6) (0.7,0.9) (1.3,-0.5) (1.6,0.4) (-0.8,0.2) (0.5,-1.8) (1.5,-1.1) (-0.6,-0.1) (0.9,0.1)
Отобрано точек - 10
Отобранные точки (x,y)
(0,0.6) (-0.9,0.3) (-0.7,-0.3) (1.3,-0.2) (0.5,-0.7) (0.7,0.9) (1.3,-0.5) (-0.8,0.2) (-0.6,-0.1) (0.9,0.1)