Var
s: string;
n: integer;
begin
Write('Введите строку: ');
Readln(s);
n := Length(s);
s := Copy(s, 6, n - 5) + Copy(s, 1, 5);
Writeln(s)
end.
Тестовое решение:
Введите строку: 1234567890abcdef
67890abcdef12345
# # Код на ruby 2.2.3p173
def zadanie(s)
s = s.downcase
count = 0
for i in 0..s.size
if s[i] == "b"
count = count - 1
elsif s[i] == "g"
count = count + 1
end
end
if count < 0
return "A BADDY"
elsif count > 0
return "GOOD"
else
return "NEUTRAL"
end
end
# # Примеры применения
p zadanie("Not a bad answer")
p zadanie("Not a good answer")
p zadanie("Not a Bag answer")
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
<span>a = int(input("Сторона квадрата = "))
P = 4*a
S = pow(a,a)
print("P = ",P)
print("S = ",S)
x = int(input("Ширина прямокутника = "))
y = int(input("Довжина прямокутника = "))
s = x*y
print("Площа прямокутника = ",s)
</span>
F1 = ( ¬X ∨ Y ) ∧ ( ¬X ∨ ¬Y )
F2 = ( X ∨ Y ) ∧ ( ¬X ∨ Y )