Const n=10; var a: array[1..n] of integer; p,k: integer; i: byte; begin randomize; p:=1; k:=0; for i:=1 to n do begin a[i]:=random(21); if (a[i]>0) and (a[i] mod 6 =0) then begin p:=p*a[i]; k:=k+1; end; end; println (a); if k>1 then writeln ('Произведение элементов, кратных 6, = ',p) else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p) else writeln ('Нет элементов, кратных 6') end.
#include <iostream>
using namespace std;
int main () {
int digit = 300;
do {
int sum = 0;
int teiler = 1;
while (teiler <= digit)
{
if (digit % teiler == 0)
sum+=teiler;
teiler++;
}
if(sum % 10 == 0)
{
cout << digit << endl;
}
digit++;
} while (digit <= 600);
return 0;
}