Мне нужен алгоритм действий,чтобы всегда получалось число 5.какое ли бы число не загадывали! например-умножьте - id735755820200818 от саша4290 18.08.2020 17:18

Question

Информатика: Мне нужен алгоритм действий,чтобы всегда получалось число 5.какое ли бы число не загадывали! например-умножьте задуманное число на 2 и тд.

саша4290 · Accepted Answer

Program Massiv;

Uses Crt;

const n=10 {размер массива}

var i,k:integer;

a:array[1..n] of integer;

begin

clrscr;

write('Введите элементы массива:' );

k:=1

for i:=1 to n do

begin

readln (a[i]);

if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

end;

writeln;

write('Исходный массив:')

for i:=1 to n do write(a[i]:3);

writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

readkey;

end.

Мне нужен алгоритм действий,чтобы всегда получалось число 5.какое ли бы число не загадывали! например-умножьте задуманное число на 2 и тд.

MOGZ ответил