Бит-1, Байт-2, Килобайт-3, Мегабайт-4, Гигабайт-5.
1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>
ОТВЕТ: живут в следующей последовательности АИПР ЭВШУ