Кажждая буква несет 4 бита информации
Program n1;
const n=100;
var a: array [1..n] of integer;
i,k,sum,temp: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
write('введите ',i,' элемент: ');
readln(temp);
if temp=0 then break;
if temp mod 8=0 then
begin
a[i]:=temp;
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф: ',sum/k);
end.
Неверен b). IP-адрес должен содержать четыре октета, т.е. четыре числа а диапазоне 0-255, разделенных тремя точками.
Неверен с). Первый октет превышает 255.
Неверен d) Третий октет превышает 255.
Неверен e) Четвертый октет превышает 255
Поэтому допустимый IP-адрес только a)
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.
2019=1024+512+256+128+64+32+2+1=
=2^10+2^9+2^8+2^7+2^6+2^5+2^1+2^0
ответ 8 файлов