Где ошибка? паскаль. дан массив из 8-ми элементом. составить алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делиться на 7. var a: array[1..8] of integer; k,i,n: integer; begin k: =0; for i: =1 to n-1 do readln(a[i]); for i: =1 to n-1 do if (a[i] mod 7 = 0) or (a[i+1] mod 7 = 0) then k: =k+1; writeln(k); end.

264

497

Посмотреть ответы 3

Ответы на вопрос:

янбаян

Информатика

4,4(62 оценок)

Vara: array[1..8] of integer; k,i,n: integer; begin k: =0; n: =8; for i: =1 to n do read(a[i]); i: =1; while i< =(n-1) do begin if ((a[i] mod 7)=0) or ((a[i+1] mod 7)=0) then inc(i); inc(k); end; writeln(k); end.

Popova23101977

Информатика

4,7(71 оценок)

Вы значение n не указали перед вызовом for.

AlexCairon5

Информатика

4,6(78 оценок)

Т.к мы работаем в 8 разрядности, смотрим чтобы в двоичном числе было 8 элеентов, если их меньше то добавляем нули впереди(слева) 1) для получения обратного кода просто меняем 1 на 0, а 0 на 1 00100110=110110012) для получение дополнительного кода сначала находим обратный код 00100101=11011010затем к обратному коду прибавляем 1 11011010+1=11011011