Ответ:
14
Объяснение:
а = 7
b = 4
if (если) a > b: (то выполняется) b += 5
else: (иначе (когда a <= b) выполняется) а += 7
(x += y прибавляет значение левой переменной к правой, равносильно x = x + y)
if (если) 7 > 4 (правда): (то ВЫПОЛНЯЕТСЯ) b += 5
b = b + 5 = 4 + 5 = 9
else: (иначе (когда 7 <= 4 - неправда) не выполняется) а += 7
а = 7
b = 9
if (если) a > b: (то выполняется) a += 12
else: (иначе (когда а <= b) выполняется) а += 7
(x += y прибавляет значение левой переменной к правой, равносильно x = x + y)
if (если) 7 > 9 (неправда): (то не выполняется) а += 12
else: (иначе (когда 7 <= 9 - правда) ВЫПОЛНЯЕТСЯ) а += 7
а = а + 7 = 7 + 7 = 14
а = 14
b = 9
Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
В двух столбцах (например, A и B) вводите показатели, в третьем (например, С) вычисляете разницу. Нужное количество можно вычислить с помощью функции СЧЁТЕСЛИ.
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
