Program Slovo;
var
s1,s2: string;
begin
s1:='абитуриент';
s2:=s1[2]+s1[5]+s1[9]+s1[10] ; //s1[2] = 'Б' s2[5]='у' s2[9]='н' s1[10]='т'
write(s2);
end.
Const
C = -5;
M = 10;
Step = 1.5;
Var x : Real;
Begin
x:=C;
Repeat
Write('x = ',x:6:2,' L = ');
If x>5 then Writeln((x+x*x+x*x*x)/10:6:2) else
If x<-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
Writeln(100:6);
x:=x+Step;
Until x>M;
end.
(8,2,0) - Число AND 65274 (1111111011111010(2))
(1,8,0) - Число AND 65276 (1111111011111100(2))