Var
a,b,c,x:integer;
begin
write('Введите трехзначное число. X=');
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln('Верно!')
else writeln('Не верно');
readln;
<span>end.</span>
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Ответ:Q=729.000
Объяснение:
var n, x, S,i: integer;P,Q:real;
begin
n:=4; x:=3; P:=1; S:=1;
for i:=2 to n do begin
P:= P * Power(x,i);
S:= S * x;
end;
Q:= P/S;
writeln('Q=':3,Q:6:3);
end.
Однорангова мережа являє собою мережу рівноправних комп'ютерів, кожний з яких має унікальне ім'я (ім'я комп'ютера) і, як правило, пароль для входу в нього під час завантаження ОС. Ім'я й пароль входу надаються власником ПК засобами ОС. Однорангові мережі можуть бути організовані за допомогою всіляких різновидів операційних систем Windows — Windows 9x, Windows NT Workstation, Windows 2000 Professional, Windows XP
<span>1байт = 8бит.</span>
<span>Значит, 1024бит =128байт.</span>
<span> </span>
<span>Если текст начинается с 10 байта, то закончится на 128+10 = 138байт.</span>