N = || || ||
S

S
S
ІІ
Задание 1. Запишите результат выполнения последовательности ко-
манд, если 8, t, p — строковые величины, r — символьная величина,
т, п, k-
переменные целого типа.
Последовательность команд
Результат
s:=' день знаний;
n:=length(s);
k:=pos(', s);
k =
t:=copy (s, 1, k-1);
t
s:=' программирование";
delete (s, 1,7) ;
delete (s, 4, 6);
s:=' перемена'; t:='к";
insert (t, s, 8) ;
s:=' перемена';
t:=upcase (s [1] ) +copy (s, 6,3) ); t =
s:='Скоро зима";
k:=pos ('', s);
n:=length(s);
p:=copy (s, k+1, n-k) ;
delete (s, 1, k) ;
n := 211; r:= chrAnsi (n);
r:='m';
n:=ordAnsi (r);
k:= 123;
str (k, s);
s:=' Утро. ";
t:= trim (s);
t=
s='12'; t:='23';
val(s, n, code) ;
val (t, k, code);
k =
p:=s+t;
m:=n+k;
S
r =
n =
S
n =
m​

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.