var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
Просто подставляешь переменные в формулы и решаешь
1000110101110010,,,,,,,,,,,,,,,,,,,,,,
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
1) Информационные процессы в природе - обмен информацией в случае опасности между животными (например, дельфинами); передача информации в генетическом коде - передача наследственных признаков.
2) В обществе - библиотека - хранение информации, накопленной предыдущими поколениями; передача информации в новостях; обмен информацией - при общении друзей.
3) В технике - передача информации по сетям (Интернет), хранение информации на жестком диске компьютера (винчестере).