Переведите на Паскаль 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*bd:= целое(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
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Переведите на Паскаль 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*bd:= целое(2*х/16)c:=2*x-16*bесли a+b = c+в то k:=k+1}ответ к» от пользователя Джана Моисеева в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!