Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(a);
For A:= A+1 to A+21 do
Write(A,' ')
End.
11101(2)=29(10)
10(2)=2(10)
29+2=31(10) = 11111(2)
29-2=27 = 11011(2)
29*2=58 = 111010(2)
11001(2) + 10(2) = 11111(2) =31(10)
10101(2) - 10(2) = 11011(2) = 27(10)
11101(2) * 10(2) = 111010(2) = 58(10)
1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a);
Var a:Integer;
Begin
a:=155;
End.
2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.
Однорангова мережа являє собою мережу рівноправних комп'ютерів, кожний з яких має унікальне ім'я (ім'я комп'ютера) і, як правило, пароль для входу в нього під час завантаження ОС. Ім'я й пароль входу надаються власником ПК засобами ОС. Однорангові мережі можуть бути організовані за допомогою всіляких різновидів операційних систем Windows — Windows 9x, Windows NT Workstation, Windows 2000 Professional, Windows XP