Найти произведение четных чисел от 1 до 14. Составьте: a) Блок схему –
b) Псевдокод –
c) Программу на Питоне –

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.

var

 a: array [1..10] of integer;  //Массив из 10 целых элементов

 max, i: integer;  //max - максимальный элемент

begin

 max:= 0;  {Присваиваем max минимальное значение, которое он может принять}

 write('Исходный массив:  ');  {Заполняем исходный массив, печатаем его и находим максимальный элемент}

 for i:= 1 to 10 do 

 begin

   a[i]:= random(10);

   write(a[i], '  ');

   if (i mod 2 = 0) and (a[i] > max) then

     max:= a[i];

 end;

 writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);  //Печатаем исходный элемент

end.

Если все правильно, отметь решение как лучшее)

Нажми, чтобы рассказать другим, насколько ответ полезен

Подробнее - на -