Код полностью
//PascalABC.NET 3.1 сборка 1239
var
a, b, c: integer;
begin
a := 9;
b := 3;
c := 1;
while not (a = b) do
begin
c := c + (a - b);
a := a - 1;
b := b + 1;
{Println(a, b, c);}
end;
writeln('c=',c);
{2}
a := 10;
b := 2;
while not (a <5) do
begin
b := b + 10-a;
a := a - 1;
{Println(a, b, c);}
end;
writeln('b=',b);
end.
Вывод программы
c=13
b=17
SET @start = "Ш"
SET @end = "Я"
SELECT Название_таблицы.Название_атрибута FROM Название_таблицы WHERE (Название_атрибута >= @start AND <= @end);
Разделить число на 10, полученную целую часть от деления еще раз разделить на 10 и взять остаток от деления
на Pascal это выглядит так:
x:= 156;
y:=((x div 10) mod 10)
результат: у=5