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' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;<span>
End.</span>