Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
Объяснение:
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
.
.
.
.
дпьащатш
num = int(input())
sm = 0
while num != 0:
sm += num
num = int(input())
print(sm)
Объяснение.
На первой строке Вы просите пользователя ввести число.
На второй строке вы создаете новую переменную, которой присваиваете значение = 0(она нужна для подсчета суммы всех элементов)
На третье строке вы создаете цикл с условием, что введенное число не равно 0(в противном случае цикл не будет выполняться)
На четвертой строчке Вы добавляете к уже имеющейся сумме введенное число.
На пятой строчке Вы просите снова ввести число
Далее происходит возврат к началу цикла, идет проверка числа на равенство нуля, если снова не равно, то цикл повторяется, если равно, то цикл прекращается
На шестой строке Вы выводите полученный результат.
var A: array [,] of integer :=
(( 1, 2, 3, 4),
( 5, 6, 7, 8),
( 9, 10, 11, 12),
(13, 14, 15, 16));
i, j, s: integer;
begin
writeln('Исходная матрица');
for i := 0 to N-1 do begin
for j := 0 to M-1 do
write(A[i,j]:3);
writeln;
end;
for i := 0 to (M - 1) div 2 do begin
s := 0;
for j := 0 to N - 1 do
s := s + A[j, i*2];
writeln ('сумма в столбце ', i*2:3, ' = ', s);
end;
end.