Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
#include <iostream>
int main()
{
const int MATRIX_SIZE = 3;
int PositiveNumbers = 0;
int NegativeNumbers = 0;
int Matrix[MATRIX_SIZE][MATRIX_SIZE] = {
{-10, 20, 13},
{-25, 1, 3},
{4, 12, -8 }
};
for(int i=0; i<MATRIX_SIZE; i++)
for (int j = 0; j < MATRIX_SIZE; j++)
{
if (Matrix[i][j] > 0)
PositiveNumbers++;
if (Matrix[i][j] < 0)
NegativeNumbers++;
}
std::cout << "Count of positive numbers: " << PositiveNumbers;
std::cout << "Count of negative numbers:" << NegativeNumbers;
}