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 } ответ к

Answer 1

Var
  a, b, c, d, x, k: integer;

begin
  k := 0;
  for x := 16 to 127 do
  begin
    b := x div 16;
    a := x - 16 * b;
    d := (2 * x) div 16;
    c := 2 * x - 16 * d;
    if (a + b) = (c + d) then k := k + 1
  end;
  writeln(k)
end.

Тестовое решение:

7