Если я не ошибаюсь конечно,то это величина.величина бывает как постоянная(константа) так и пенеменная постоянная величина не изменяет своего значения в ходе выполнения алгоритма,а переменная может изменять свое значение в ходе выполнения алгоритма)в общем можно многое писать об этом,я предполагаю что это величина
program
HelloWorld;
var b
:double;
var s
:string;
begin
<span> writeln('</span>Введите биты:');
readln(b);
b:= b/8;
writeln('Результат
в байтах:');
writeln(b:15:2);
b:= b/1024;
writeln('Результат
в килобайтах:');
writeln(b:15:2);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
Var a:array[0..999] of integer;
n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.