Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
<span>PASCAL
a,b,c:real;
a1,b1,c1,r: integer;
begin
writeln('введите угол А=');
readln (a1);
writeln ('введите угол B=');
readln (b1);
c1:=180-(a1+b1);
writeln ('введите радиус r=');
readln (r);
a:=2*r*sin(a1);
b:=2*r*sin(b1);
c:=2*r*sin(c1);
writeln('сторона А=',a);
writeln('сторона B=',a);
writeln('сторона C=',a);
readln;
end<span>.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c</span></span>
Var
N:integer;
procedure Change(var n);
var
n2,n3,i:integer;
begin
i:=1;
n2:=n;
n:=0;
while n2>0
begin
n3:=n2 mod 10;
n2:=n2 div 10;
n:=n*i + n3;
i:=i*10;
end;
end;
begin
readln(N);
Change(N);
writeln(N);
end.
1.Пользовательский шаблон — это неотъемлемый атрибут профессиональной работы в AutoCAD. Шаблон — это хранилище преднастроек вновь создаваемого файла
В шаблонах могут храниться стили, элементы автотекста,
1) Компьютер
2) Полезный, незаменимый
3) Играть, учиться, общаться
4) Помощник в трудных ситуациях
5) Информация
