Есть несколько категории вирусов:
Массовые -- распространяются в видах: кликбейт рекламы (делает все возможное чтобы заставить пользователя кликнуть), фишинговые письма (поддельные, обычно от соц. сетей с перейти по ссылке). Их цели довольно разные: начиная от показа рекламы, и заканчивая шифрованием всех файлов пользователя прося выкуп за ключНацеленные на компанию -- их задача проникнуть в инфраструктуру определенной компании. Будто банк или офис конкурентов.Нацеленные на конкретного человека -- их задача получить доступ к компьютеру определенного человека. Например если у него есть исходные коды какой-то важной программы.
Первый вариант:
program N60286025;
var a,b,c,m:integer;
begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
write('Введите 3-е число: ');
readln(c);
if (a <= b) and (b <= c) or (a >= b) and (b >= c) then m := b;
if (b <= a) and (a <= c) or (b >= a) and (a >= c) then m := a;
if (c <= b) and (a <= c) or (c >= b) and (a >= c) then m := c;
writeln('Среднее число ',m);
readln
end.
Второй вариант:
program N60286025;
var a,b,c,m:integer;
begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
write('Введите 3-е число: ');
readln(c);
if a <= b then
if a <= c then
if b <= c then
m := b
else
m := c
else
m := a
else
if a <= c then
m := a
else
if b <= c then
m := c
else m := b;
writeln('Среднее число ',m);
readln
end.
немного не поняла, что означает команда после последнего слова "конец".
если её не учитывать, то ответ номер 3,
если учитывать, то 1