Program n1; Uses CRT; Var s,k,i: integer; sr: real; begin Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda'); Repeat Readln(i); s:=s+i; inc(k); Until i=0; sr:=s/(k-1); Writeln('Srednee arifmeticheskoe = ',sr:4:4); readln end.
2) С цикла While
Program n1; Uses CRT; Var s,k,i: integer; sr: real; begin Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda'); i:=1; While i<>0 do begin Readln(i); s:=s+i; inc(k); end; sr:=s/(k-1); Writeln('Srednee arifmeticheskoe = ',sr:4:4); readln end.
3) С цикла For
Program n1; Uses CRT; Var s,j,k,i: integer; sr: real; begin Writeln('Vvedite kolichestvo chisel'); Readln(k); Writeln('Vvodite chisla'); For j:=1 to k do begin readln(i); s:=s+i; end; sr:=s/k; writeln('Srednee arifmeticheskoe = ',sr:4:4); readln end.
1) Вирус - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий
В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение
2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой
Примеры вредоносных действий
использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты
Предполагается, что вводимые числа - целые.
1) С цикла Repeat Until
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
Repeat
Readln(i);
s:=s+i;
inc(k);
Until i=0;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
2) С цикла While
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
i:=1;
While i<>0 do
begin
Readln(i);
s:=s+i;
inc(k);
end;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
3) С цикла For
Program n1;
Uses CRT;
Var s,j,k,i: integer;
sr: real;
begin
Writeln('Vvedite kolichestvo chisel');
Readln(k);
Writeln('Vvodite chisla');
For j:=1 to k do
begin
readln(i);
s:=s+i;
end;
sr:=s/k;
writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
1) Вирус - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий
В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение
2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой
Примеры вредоносных действий
использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты