Закодировать слово інформатика в азбуку морзе(@[email protected])

Question

Информатика: Закодировать слово інформатика в азбуку морзе(@[email protected])​

Nisson1 · Accepted Answer

//Pascal //1) var   A: array [1..30] of integer;   i: byte; mult: double; begin mult := 1; randomize; writeln( Сгенерированный массив. ); for i := 1 to 30 do begin   A[i] := random(46)-15;   if A[i] 0 then mult := mult * A[i];   write(A[i], ); end; writeln; writeln( Произведение положительных элементов = , mult); end. // //2) var   A: array [1..40] of integer;   i: byte; count: byte; begin count := 0; randomize; writeln( Сгенерированный массив. ); for i := 1 to 40 do begin   A[i] := random(31)-20;...

Закодировать слово інформатика в азбуку морзе(@[email protected])​

MOGZ ответил