Цикл while. для n-чисел, < =100 найти произведение тех чисел которые кратны 3.

var a,n,s: integer;

begin

  s: =1;

  n: =1;

  while n< =100 do begin

    readln(a);

    if a mod 3 =0 then s: =s*a;

    n: =n+1;

                          end;

  writeln(s);

end.

  вроде так

если что не так, исправлю

#include < cstdlib> #include < iostream> using namespace std;                                               //ни чего особо не значит, чисто                                                                                                                              //синтаксис,на алгоритм не влияетint main()                                            {

  int n=0;

  int a=1;

  while(n< =100)

  {

  if(n%3==0 & & n! =0)

  {

    a*=n;                                                                     //a=a*n

  }

  n++;                                                                       //n=n+1

  }

  cout< < "произведение равно "< < a< < endl;   system("pause");   return 0; }

 

 

 

 

 

(код написан на с++.)

 

 

#include < cstdlib> #include < iostream> using namespace std; int main(){

  int n=0;

  int a=1;

  while(n< =100)

  {

  if(n! =0)                                                                                //если умножить на 0 то а в итоге будет равно

    a*=n;                                                                         //0 (0 делиться на 3)

  n+=3;                                                                         //n=n+3    (каждое третье делиться на 3,                                                                                                        //увеличиваем сразу на 3)

  }

  cout< < "произведение равно "< < a< < endl;   system("pause");   return 0; }

 

 

 

 

 

(код написан на с++.)

 

 

Const     maxelements = 1000; var  arr : array[1..maxelements, 1..maxelements] of integer;   counterarray : array[1..maxelements] of integer;   i, j, n, m, countofpositive:   integer; begin     write('введите количество строк: ');     readln(n);     write('введите количество столбцов: ');     readln(m); writeln('введите элементы массивы');     for i: =1 to n do     for j: =1 to m do         read(arr[i,j]);       countofpositive : = 0;   for j: =1 to m do     begin       for i: =1 to n do         if arr[i,j] > 0 then inc(countofpositive);       counterarray[j] : = countofpositive;       countofpositive : = 0;     end;       writeln('количество положительных элементов в каждом столбце');   for j: =1 to m do     write(counterarray[j], ' '); end.