Var
s, p, w : string;
begin
s := 'программирование';
p := copy (s, 1,8) + s[13];
w := copy (s, 8, 3);
write (p, ' ', w);
end.
=IF(F8>2000;F8*0.13;IF(F8>J8;(F8-J8)*0.13;0))
If ((mas[j]>0) and (mas[j+1]<0)) or ((mas[j]<0) and (mas[j+1]>0)) then
<span>Знак поменялся</span>
Program n_6; var i,x,y,z:integer; m:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10); procedure nod(a,b:integer; var c:integer);
Leanne0203
Const max=10;
var ar:array[1..max]of integer;
i:byte;
procedure randomArray();
var i:byte;
begin
randomize();
for i:=1 to max do
ar[i]:=random(10,100);
end;
begin
randomArray();
for i:=1 to max do
write(ar[i],' ');
end.