Переведите на паскаль 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 } ответ к
devil2a
3
09.06.2019 18:10
0
Другие вопросы по теме Информатика
Амина020202
12.03.2019 18:40
emilityan
12.03.2019 18:40
lisasmirnova26
12.03.2019 18:50
alisakholodova9
04.12.2020 13:57
mement0m0ri
04.12.2020 13:57
tigranchik111111
04.12.2020 13:57
Ромашка11441
19.06.2019 01:30
GAMAEW66
19.06.2019 01:20
Nivika0
19.06.2019 01:20
Популярные вопросы
- Высшая математика. Доказать, что функция удовлетворяет дифференциальному...
1 - Скажите, как из ацетилена получить полипропилен? Или же из метана...
3 - Инмтрукции в линейной программе...
3 - При каких значениях параметра m неравенство mx+2m+x 6 Верно при...
2 - В яких кліматичних поясах розташований індійский океан?...
2 - Завдання 3. Теплиця. У проекті Теплиця шестикласники демонструють,...
2 - Який об єм сульфур(IV) оксиду(н.у.) необхідний для взаємодії з...
3 - 1. Выберите и подчеркните из приведенных в скобках вариантов правильные....
2 - Мини сочинение на тему мой любимый сказочный герой...
1 - Найдите в текстах примеры синекдохи 1) С вечера всё спится, На...
3
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