var a,b,c: integer;
begin
readln (a,b,c);
if ((a > b) and (a < c)) or ((a < b) and (a > c)) or ((a<b) and (b=c)) or ((a<b) and (a=c)) or ((a<c) and (a=b)) then writeln(a)
else if ((b > a) and (b < c)) or ((b < a) and (b > c)) then writeln(b)
else writeln(c);
end.
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
Var a,i:integer;
begin
for i:=1 to 50 do
if i mod 2 = 0 then
a:=a+i;
writeln(a);
end.
Если я не ошибаюсь конечно,то это величина.величина бывает как постоянная(константа) так и пенеменная постоянная величина не изменяет своего значения в ходе выполнения алгоритма,а переменная может изменять свое значение в ходе выполнения алгоритма)в общем можно многое писать об этом,я предполагаю что это величина
В языке Pascal команда for всегда совершает шаг, равный единице
Это можно проверить с помощью программы:
<h2>var i: integer;</h2><h2>begin</h2><h2>for i:=1 to 10 do</h2><h2>writeln(i);</h2><h2>end.</h2>
Счётчик i увеличивается на 1, следовательно шаг всегда равен единице.