Нарисуйте Блок-Схему, по данной программе Паскаль. Программа:
var a:array[1..n,1..n] of integer;
i,j,mn,s:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=1+random(9);
write(a[i,j]:2);
if ij=1 then mn:=a[i,j]
else if a[i,j] 2mn)then s:=s+a[i,j];
writeln('Сумма элементов кратных 3 и больших минимального в 2 раза(',2mn,')=',s)
end.

i,j,mn,s:integer;

begin

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=1+random(9);

write(a[i,j]:2);

if ij=1 then mn:=a[i,j]

else if a[i,j] 2mn)then s:=s+a[i,j];

writeln('Сумма элементов кратных 3 и больших минимального в 2 раза(',2mn,')=',s)

end.

👇

Увидеть ответ

Ответ:

balabonkin68p06p8r

15.05.2020

чот не хера не понял вопроса

Объяснение:

4,4(89 оценок)

Открыть все ответы

Ответ:

люся4085

15.05.2020

Редактирование (фр. rédaction от лат. redactus – приведённый в порядок) — многоаспектное понятие, имеющее следующие основные значения[1]:

род профессиональной деятельности (преимущественно в области периодической печати, книгоиздательского дела,кинематографии, телевидения, радиовещания), связанной с подготовкой к выпуску печатных изданий, теле- и радиопередач, кинофильмов; составная часть издательского процесса, содержанием которой является творческая работа редактора (обычно совместно с автором) над рукописью произведения в целях улучшения его содержания и формы, подготовки кполиграфическому воспроизведению и выпуску в свет; приведение содержания и формы любого документа, написанного или подготовленного кем-либо, в соответствие с общепринятыми или специально установленными требованиями и нормами.

ФОРМАТИРОВАНИЕ (инициализация, разметка диска; англ. formatting, format, initialization), процедура записи на магнитный диск (жесткий диск (см. ЖЕСТКИЙ ДИСК), флэш-память (см. ФЛЭШ-ПАМЯТЬ)) меток, определяющих последующее расположение записей данных (блоков, секторов, дорожек), участков непригодных для записи, а также другой управляющей информации. Форматирование выполняется перед первым использованием диска, при последующем форматировании вся информация на диске уничтожается.

Энциклопедический словарь. 2009.

4,6(74 оценок)

Ответ:

lamsjsj

15.05.2020

Объявляем функцию gcd, принимающую два целочисленных параметра и возвращающую их наибольший общий делитель. Здесь это вычисляется при алгоритма Евклида.

Затем для удобства определяем ещё одну функцию gcd3, которая принимает уже три аргумента и, используя указанную в условии формулу и описанную выше функцию gcd, вычисляет НОД от трёх чисел.

В основной части программы просто три числа считываются с клавиатуры и выводится ответ.

Код (PascalABC.NET v3.6.2316):

function gcd(a, b: integer): integer;

begin

while a * b <> 0 do

(a, b) := (b, a mod b);

Result := a + b

end;

function gcd3(a, b, c: integer) := gcd(gcd(a, b), c);

begin

var (a, b, c) := ReadInteger3;

print(gcd3(a, b, c))