1-2. Напишите программу, в которой осуществляется ввод любых целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчëт суммы и среднего арифметического всех введённых чисел. Сначала запишите эту программу с оператором repeat, а затем с оператором while:
while <условие>do
begin
<серия команд
end:
while <yсловие>do
begin
серия команд>
end;
3. Напишите программу, в которой осуществляется ввод любых целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и вычисление суммы всех чётных чисел из ведённых. Запишите эту программу с оператором repeat или с оператором
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers; a.Println; var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0) .Select(x->x.Item2).ToArray; if b.Count<>2 then Writeln('Количество отрицательных элементов не равно двум') else begin a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1)) .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray; a.Println end end.
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
Под угрозой информационной безопасности принято понимать потенциально возможные действия, явления или процессы оказать нежелательное воздействие на систему или на хранящуюся в ней информацию.Такие угрозы, воздействуя на ресурсы, могут привести к искажению данных, копированию, несанкционированному распространению, ограничению или блокированию к ним доступа. В настоящее время известно достаточно большое количество угроз, которые классифицируют по различным признакам.По природе возникновения различают естественные и искусственные угрозы. К первой группе относятся те, что вызваны воздействием на компьютерную систему объективных физических процессов или стихийных природных явлений. Вторая группа – те угрозы, которые обусловлены деятельностью человека.По степени преднамеренности проявления, угрозы разделяют на случайные ипреднамеренные.Также есть разделение в зависимости от их непосредственного источника, в качестве которого может выступать природная среда (например, стихийные бедствия), человек (разглашение конфиденциальных данных), программно-аппаратные средства: санкционированные (ошибка в работе операционной системы) и несанкционированные (заражение системы вирусами).Источник угроз может иметь разное положение. В зависимости от этого фактора также выделяют три группы:- Угрозы, источник которых находятся вне контролируемой группы компьютерной системы (пример – перехват данных, передаваемых по каналам связи)- Угрозы, источник которых – в пределах контролируемой зоны системы (это может быть хищение носителей информации)- Угрозы, находящиеся непосредственно в самой системе (например, некорректное использование ресурсов).Угрозы по-разному воздействовать на компьютерную систему. Это могут быть пассивные воздействия, реализация которых не влечет за собой изменение структуры данных (например, копирование). Активные угрозы — это такие, которые, наоборот, меняют структуру и содержание компьютерной системы (внедрение специальных программ).В соответствии с разделением угроз по этапам доступа пользователей или программ к ресурсам системы существуют такие опасности, которые проявляются на этапе доступа к компьютеру и обнаружимые после разрешения доступа (несанкционированное использование ресурсов).Классификация по месту расположения в системе подразумевает деление на три группы: угрозы доступа к информации, находящейся на внешних запоминающих устройствах, в оперативной памяти и к той, что циркулирует в линиях связи.ОТВЕТ ВЗЯТ ИЗ ИНТЕРНЕТА!!
Программа:
Pascal:
№1)
var sum, j, k: integer;
begin
readln(j);
while j <> 0 do begin
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
end;
writeln(sum/k);
end.
№2)
var sum, j, k: integer;
begin
readln(j);
repeat
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
until j = 0;
writeln(sum/k);
end.
№3)
3.1) var sum, j: integer;
begin
readln(j);
repeat
if j mod 2 = 0 then sum += j;
readln(j);
until j = 0;
writeln(sum);
end.
3.2) var sum, j: integer;
begin
readln(j);
while j <> 0 do begin
if j mod 2 = 0 then sum += j;
readln(j);
end;
writeln(sum);
end.