program raf105;
var s,s1:string;
begin
s:= 'информатика';
s1:= s1 + copy(s,3,5);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);
writeln(s1);
s1:= '';
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Попробуй поставить 3 галочки (там где Обеспечение целостности)
Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>