Гигабайт??
8 бит = 1 байт
1024 байт = 1 килобайт
1024 килобайт = 1 мегабайт
1024 мегабайт = 1 гигабайт
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.
Результат
Вводите: Информатика
икаорматИнф
Начало
Введение a, b
c=a+b
написать с
Конец
У нас новое сельское хозяйство открыли!
Сегодня на уроке писали словарный диктант!
В журнале две картинки царь,град.
У французов полком водет Наполеон Бонапарт!
And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr(max)=sqr(min1)+sqr(min2)) then Writeln('Треугольник прямоугольный') else if (sqr(max)<sqr(min1)+sqr(min2)) then Writeln('Треугольник остроугольный') else Writeln('Треугольник тупоугольный'); end else Writeln('Треугольник не существует'); Readln(); END.