Составьте программу, выясняющую, можно ли представить данное натуральное число N в виде произведения двух составных сомножителей, каждый из которых кратен 3.

// PascalABC.NET

begin

 var N := ReadInteger;

 if N mod 9 = 0 then

   Print('Представимо')

 else

   Print('Непредставимо')

end.

Объяснение:

Если число p кратно 3, можно записать p = 3k.

Тогда N = 3k₁ · 3k₂ = 9k₁k₂.

Итак, если N кратно 9, то N представимо требуемыми сомножителями, в противном случае непредставимо.

#include <iostream>

using namespace std;

int main()

{

int n, x = 0, count = 0;

cin >> n;

int arr[n];

for (int i = 0; i < n; i++)

{

cin >> arr[i];

for (int i = 0; i < n; i++)

{

if (arr[i] > 0 && x == 0)

{

cout << i; //положительный

x = 1

}

if (arr[i] < 0) count++;

}

cout << endl << count;

return 0;

}

Объяснение:

Введите сначало количество елементов массива, а потом сами елементы через пробел

Выведет номер первого положительного и количество отрицательных.

program number1;

var a: array [1..5] of integer;

i,min,max: integer;

Begin

writeln('Введите 5 значений массива');

for i:=1 to 5 do

readln(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to 5 do

Begin

if (a[i]>=max) then max:=a[i];

if (a[i]<=min) then min:=a[i];

End;

for i:=1 to 5 do

Begin

if max=a[i] then

Begin

 writeln('Максимальное значение: ',a[i],' [',i,']');

 max:=a[i];

End;

if min=a[i] then  

 Begin

 writeln('Минимальное значение: ',a[i],' [',i,']');

 min:=a[i];

 End;

End;

writeln('Среднее арифметическое: ',(min+max)/2);

End.