Переведите на паскаль abc : x - исследуемое число - вопрос №28153171616 от Lizkic 13.11.2022 21:29

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

Lizkic · Answer

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...