Const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end; writeln; writeln;
for i:=1 to n do begin for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum);<span> end.</span>
Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>
1 символ- 8 битов, значит:
17* 8= 136 битов ( 17 символов, пробел тоже считается )
ЗАДАНИЕ НОМЕР 4
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
вверх
вправо
вниз
нц пока слева не свободно
вниз
кц
влево
нц пока сверху не свободно
закрасить
влево
кц
кон
ЗАДАНИЕ НОМЕР 5
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
вниз
нц пока снизу свободно
закрасить
вниз
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
program slovo;
var s: string; i: integer;
Begin
writeln('введите слово'); readln(s);
for i:=length(s) downto 1do begin
write(s[i]);
end;
End.