1.дано целое число,лежащее в диапазоне 1-999.вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д. 2.даны 3 переменные вещественного типа: а,в,с.если их значения по возрастанию,то удвоить их.в противном случае заменить значение каждой переменной на противоположное.вывести новые значения переменных а,в,с. 3. даны 3 целых числа,одно из которых отлично от двух других,равных между собой. определить порядковый номер числа,отличного от остальных.

1)var a: integer; begin writeln('введите число'); readln(a); if (a mod 2=0) then write('чётное ') else write('нечётное '); if (a div 100> =1)then write('трёхзначное число') else if (a div 10> =1)then write('двузначное число') else writeln('однозначное число'); end.2)var a,b,c: real; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if (a< b)and (b< c) then  begin a: =2*a; b: =2*b; c: =2*c; end else  begin a: =(-1)*a; b: =(-1)*b; c: =(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.

ответ:

ответ таков:

вредоносные программы это "вирусы". цифровые вирусы бывают разными: одни называются "трояны" в браузеры или же прямо вам в компьютер пихауют рекламу. другие могут украсть информацию, деньги с карты или банковских щитов. а есть те которые полностью уничтожают цп компьютера. возможности востоновить данные в таких случаях крайне малы. единственный способ это переустановить windows.