Дана цепочка символов СТОП. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т.е. пр
<span>Дана цепочка символов </span>СТОП<span>. Какая цепочка символов получится, если к</span><span> </span><span>данной цепочке применить описанный алгоритм дважды (т.е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?</span>
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран } var L:array [1..9] of byte; n,i:byte; begin N:=9; {считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число} end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte; n,i:byte; begin N:=22; randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число} end.
Const n=15; { длина массива } type tm=array[1..n] of integer; var i:byte; a,b,c:tm; begin randomize; for i:=1 to n do begin a[i]:=random(101-50); b[i]:=random(101-50); c[i]:=a[i]*b[i]; Write(a[i],' ') end; Writeln; for i:=1 to n do begin Write(b[i],' ') end; Writeln; for i:=1 to n do begin Write(c[i],' ') end; Writeln end.