var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
then writeln ('Буква «т» встречается раньше')
else writeln('Буква «с» встречается раньше');
end.
Ответ:
Формула: a*2 + b*2
Объяснение: Умножаем a*2, находим боковые стороны. Затем, умножаем b*2, находим основания. Складываем значения полученные в итоге, и получаем периметр.
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.