Отличительными особенностями компьютерных вирусов являются: 1) маленький объем; 2) самостоятельный запуск; 3) многократное копирование кода; 4) создание помех для корректной работы компьютера
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Справа - AA
Слева - Y , если ты про эксел
10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
С++
#include<iostream>
#include<cmath>
int y(int x){
if(x<-2){
return (abs(x)+2);
}else if(x >= -2 && x<= 2){
return 1;
}else{
return (x+1);
}
}
using namespace std;
int main(){
int x;
cin>>x;
cout<<y(x)<<endl;
return 0;
}
Паскаль
Program pr;
uses crt;
var x :integer;
fubction y(x: integer) int a begin
if x<-2 then
a:= abs(x)+2;
else if (x>=-2) and (x<=2) then
a:= 1;
else a:= x+1;
end;
begin
readln(x);
whiteln(y(x));
end;
