Переведите на Паскаль ABC пожалуйста:x - исследуемое числоизменяется от 16 до 16*16/2-1=127к - счетчика - младший знак 16-ричной записи числа хb - старший знак 16-ричной записи числа хc - младший знак 16-ричной записи числа 2х...
Переведите на Паскаль 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
}
ответ к
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы