Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28
var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>
В 1 кбите 1000 бит (см. ГОСТ 8.417-2002, Приложение А, табл. А.1, хотя некоторые учителя и учебники все еще ошибочно считают, что в килобите 1024 бита).
Поэтому 2 кбита = 2 х 1000 = 2000 бит.
В 1 байте 8 бит, тогда 2000 бит = 2000 / 8 = 250 байт
begin
var s := ReadlnString();
if s.Length.IsOdd then
Write(s[(1 + s.Length) div 2])
else
Write(s[s.Length div 2], s[s.Length div 2 + 1])
end.