Вопрос по информатике:
Переведите на Паскаль 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
}
ответ к
- 01.01.2018 14:14
- Информатика
- remove_red_eye 8660
- thumb_up 10
Ответы и объяснения 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
- 02.01.2018 19:07
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.