# # Код на 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")
Быстрое - мало что чистить будет
полное - все весь корень системы и так далее <span />
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x='); var (a,t):=(0,0.0);
for var i:=0 to x do
begin
a:=i; t:=2*a**2-9*a+(1/2);
Writeln('при а=',a,' ','выражение равно=',t);
end;
end.