Question

Переведите  на Паскаль ABC пожалуйста:

x - исследуемое число
изменяется от 16 до 16*16/2-1=127
к - счетчик
а - младший знак 16-ричной записи числа х
b - старший знак 16-ричной записи числа х
c - младший знак 16-ричной записи числа 2х
d - старший знак 16-ричной записи числа 2х

k:=0
цикл по х от 16 до 127 
{
b:= целое(х/16)
a:=x-16*b
d:= целое(2*х/16)
c:=2*x-16*b
если a+b = c+в то k:=k+1
}
ответ к